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Personaggi Tutti 
gli uomini di Dossier 


Gratis Tre programmi 
se ti abboni 


Hi-Res Quadrante, 
sveglia e rintocchi 


lancette 


Giochi Pronti 

puntate, fuoco! 
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Vacanze Mare 
sole ed Apple II 


Profitti 




Nel tempo libero 
con il libro elettronico 
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con il libro elettronico 
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14 Sant’Apple, aiutami tu 

La burocrazia dell’ufficio assorbe i'80% del tempo: lettere, resoconti, verbali, fatture, 
bozze di contratti. Ma il nuovo Apple Wrlter//e con il WPL... 

20 Come lancio Pinocchio 

L’amministratore di una casa editrice per ragazzi ha scoperto che VlsiSchedule 
può aiutare Collodi, Dumas, Salgari. Giulio Verne non l’aveva previsto. 

22 Statistiche per tutti 

Anche per chi non si occupa di marketing o scienze affini per mestiere, ecco 
un programma di sicuro interesse. E gli indici più astrusi diventano facilissimi... 


28 Più spazio nel dischetto 

Rimuovendo il Dos dal dischetto si ottiene un buon 10% di capacità in più 
per i dati da conservare. E a conti fatti... 


30 Tutti gli uomini di Dossier 

Chi sono gli autori, italiani, del programma che la Arnoldo Mondadori 
Editore sta vendendo in tutto il mondo. 





Ufficio Lettere, resoconti, fatture, verbali 
di riunione. È possibile automatizzare 
davvero il lavoro? Con il WPL... (pag. 14) 


33 Noi andiamo all’AppleFest 

Vieni con noi all’AppleFest di San Francisco: una settimana in California, in 
ottobre, e un salto a Cupertino... 

35 Scanner 

Un gioco per giovanissimi: imparano l’ortografia, ma anche l’uso della 
tastiera. Interessante anche però... 

38 Profitti, perfavore! 

Ecco un sistema facile facile per calcolare il break-even point, il punto di 
guadagno, in qualsiasi attività. Anzi, due sistemi... 

44 Quadrante, sveglia e lancette 

Volete trasformare il vostro Apple II in un orologio munito di rintocchi a ogni 
ora, allarme e lancetta dei secondi? Si fa così... 


46 Pronti, puntare fuoco! 

Una vecchia casa abbandonata, in piena notte. Tu sei il guardiano. 
Improvvisamente una finestra s’accende, un’ombra s’aggira furtiva... 

51 Sole mare ed Apple II 

Le vacanze sono in vista. Per chi volesse trascorrerle in buona compagnia 
ecco qualche suggerimento e un'idea. 

54 Sì, son nato un giovedì 

Con il calendario perpetuo di Applicando , di qualsiasi data, anche del 1700 o 
del 2000, diventa facile individuare il giorno della settimana. 


58 Figurati un po’ 

Disegni, cartoni animati, figure: con questo programma, uno dei tre del 
dischetto che Applicando regala ai suoi abbonati... 


64 Pianoforte Apple/// 

Chi l’avrebbe mai detto? Pensavate che fosse solo un noioso computer da 
ufficio? No, no! Ha perfino i diesis e i bemolle... 



lo applico 

Sandro 

Bacci, 

amministrato¬ 
re della casa 
editrice 
Carroccio, 
usa 

VlsiSchedule 

per 

ottimizzare! 
tempi dei 
suoi libri per 
ragazzi, (pag. 
20 ) 


Giochi Pronti, 
puntare, fuoco! 
Mano ferma, 
riflessi scattanti 
e... (pag. 46) 



661 tronchi del tesoro 

Abilità, sangue freddo, fortuna: a nuoto, contro corrente fra i tronchi 
galleggianti, vince chi raccoglie più sacchetti di dollari... 


69 Compatibilità vo’ cercando... 

Quali programmi per Apple II non vanno bene per Apple //e? Applicando ha 
fatto una ricerca, e su oltre quattrocento ha scoperto che... 




telici 


6 Applichi 
9 Appliquando 


10 Applicosa 
74 Appliquanto 
79 Appliheip 


80 Disk Service 

81 Applettere 

82 Appiicosì 



Grafica Disegnare tavole di figure diventa 
facilissimo con il programma che Appli - 
cando regala ai suoi abbonati.(pag.58) 
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INFORMATICA SHOP rivenditore autorizzato IRET 

VIA LAZZARETTO 2 MILANO tei. 28 70 105 (4 linee) 


Distribuzione per l’Italia 


meT informatica 


’cippkz computer 


nella scelta dell'elaboratore 
e nel dimensionamento del sistema 


DOPO 

l’assistenza nella scelta del programma 
e nella personalizzazione. 


POI 

l'assistenza nell'avviamento e sviluppo 
e nella riparazione dell’elaboratore. 


Programmi applicativi disponibili: 

• gestione archivio • gestione contabile 

• gestione magazzino • paghe e stipendi 

• distinta base • word processing 

• ingegneria civile 

• calcolo e disegno automatico 


Nata 


nel settore della piccola informatica la risposta chiara al tuo problema 


l’assistenza ! 






e: 


cune 

D D y 
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a' 

Tutti i diritti di riproduzione e tra¬ 
duzione di testi, articoli, progetti, 
illustrazioni, disegni, listati di pro¬ 
grammi, fotografie ecc., sono ri¬ 
servati a termini di legge. I pro¬ 
grammi pubblicati su Applicando 
possono essere utilizzati per 
scopi privati, scientifici e dilettan¬ 
tistici, ma ne sono vietati sfrutta¬ 
menti e utilizzazioni commerciali. 

I manoscritti, i disegni, le foto, an¬ 
che se non pubblicati, non si re¬ 
stituiscono. 


C 7 erano una volta i sacerdoti. Cerne tonaca indossavano 
il camice bianco, e nelle loro sacrestie isolate e 
condizionate ]' ingresso di un comune mortale sarebbe stato 
sacrilego. Predicavano il verbo del computer senza 
possibilità di contraddittorio: questo si può fare, quest 7 
altro non si può fare; questo si deve fare così e con questi 
costi, quest 7 altro invece così e a questo prezzo. 

Per noi, umili impiegati, dirigenti, ingegneri, avvocati, 
architetti, professionisti, il latinorum del computer era 
indecifrabile e alieno. Non supponevamo nemmeno la 
possibilità di un computer amichevole, piccolo, accessibile, 
piacevole. 

Ora il nostro elaboratore personale l 7 abbiamo 
conquistato. Ci serve. Ci aiuta. Ci diverte, anche. Sappiamo 
che potrebbe servirci di più. Aiutarci di più. Divertirci di 
più, anche. Però il tempo è tiranno, abbiamo le nostre 
occupazioni e il computer per noi non può diventare un fine, 
deve restare un mezzo. Ah, ci fosse qualcuno capace di dire 
come si fa!, ci sorprendiamo a dire. Ah, potessimo chiamare 
qualcuno a programmarlo per far questo e quello!, ci 
sorprendiamo a pensare... 

Il ritorno alla logica del sacerdote in camice bianco è 
in agguato. Applicando nasce perchè ciascuno possa 
continuare a essere padrone del suo computer senza bisogno 
di intermediari con o senza camice. Per aiutare a usare 
meglio il computer Apple. Per informare su tutto quel che c 7 
è di nuovo, ma anche per imparare, tutti insieme, a ottenere 
sempre qualcosa di più dal piccolo gioiello che teniamo sul 
tavolo, a portata di dita. 




ÓJU-J 




P.S. Appiicando è per il momento bimestrale. Diventerà 
mensile grazie anche all 7 amicizia di tutti gli abbonati. E 7 
un giornale, ma vorremmo che diventasse un club. Per questo 
ogni forma di collaborazione, di segnalazione, di commento, 
è assolutamente gradita. 
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Fratello sole, sorella mela 



I Fratelli delle Scuole Cri¬ 
stiane, appartenenti alla 
congregazione laico religio¬ 
sa fondata nel 1680 da San 
Giovanni Battista de la Sal- 
le, sono stati tra i primi a 
intuire che nelle classi supe¬ 
riori delle scuole italiane era 
giunto il momento di intro¬ 
durre l’insegnamento di una 
materia come l'informatica. 
E hanno incaricato Fratello 
Armando Norti, vice preside 
della Ragioneria, docente di 
fisica e matematica, con 
una particolare predilezione 
per l’economia, di organiz¬ 
zare un’aula che fosse adat¬ 
ta allo scopo. 

Fratello Armando non si è 
fatto ripetere due volte l’invi¬ 
to e ha subito costituito il 
Cedig (Centro elaborazione 
dati dell’Istituto Gonzaga di 
Milano, via Vitruvio 41, tei. 
02/2870091), attrezzandolo 
con cinque Apple II, stam¬ 
panti Centronics 739, moni¬ 
tor e emulatori di drive. 

II Cedig, ormai, è operati¬ 
vo da oltre un anno, possie¬ 
de una ricca biblioteca di 


software ed è la meta più 
ambita da tutti i ragazzi del- 
l’Istituto Gonzaga. “Qui 
prendono confidenza col 
computer fin dai primi anni 
delle superiori”, spiega Fra¬ 
tello Armando. “Ai più pic¬ 
coli insegnamo, per esem¬ 
pio, a tenere l’archivio della 
libreria scolastica. Agli alun¬ 
ni degli ultimi anni dell’Istitu¬ 
to tecnico commerciale, dia¬ 
mo invece l'opportunità di 
apprendere le tecniche ne¬ 
cessarie a trattare sul com¬ 
puter la contabilità, l’ammi¬ 
nistrazione e tutte le opera¬ 
zioni utili alla gestione di 
un’azienda”. 

Due ore di lezione alla 
settimana e di fronte a ogni 
Apple siedono tre ragazzi 
che si alternano alla tastie¬ 
ra. Un’equipe di specialisti 
in informatica segue i corsi 
insieme ai docenti delle ri¬ 
spettive materie trattabili 
sugli elaboratori. Gli studen¬ 
ti del liceo scientifico, in par¬ 
ticolare, ne sono entusiasti 
Possono studiare la fisica, 
la chimica e la matematica 


direttamente sull’Apple. E, 
tra qualche mese, potranno 
specializzarsi anche nella 
programmazione in Assem¬ 
bler e Pascal, nella grafica, 
nel CAD (Computer aided 
design) e nel calcolo nume¬ 


rico scientifico, mentre altre 
applicazioni sono allo 
studio. 

Attualmente sono già atti¬ 
vi due corsi di programma¬ 
zione in Basic, per un totale 
di 30 lezioni, che si svolgo- 



Guglielmo Teli 

targato 

Mondadori 


Più di due anni fa aveva 
capito che era giunto il mo¬ 
mento favorevole per vara¬ 
re all’interno della sua casa 
editrice, l’Arnoldo Monda- 
dori, la divisione di editoria 
elettronica. E lui Egidio Pen¬ 
tiraro, 44 anni, esperto nei 
problemi della formazione e 
studioso delle tecniche di 
applicazione degli elabora¬ 
tori alla didattica, non ha 
avuto troppe difficoltà a 
crearsi questo nuovo 
spazio. 

Del resto Egidio Pentiraro 
si era già affermato come 
direttore editoriale alla Etas 










no al pomeriggio e nelle ore 
serali. Vi partecipano sia gli 
allievi dell’Istituto Gonzaga, 
sia i ragazzi che non fanno 
parte della scuola, tra i quali 
numerosi universitari. 

Ma, ben presto, il Cedig si 


espanderà. Fratello Arman¬ 
do spera infatti di poterlo 
amplificare con altri sette 
Apple, grazie ai quali potrà 
trasformare il corso di datti¬ 
lografia in un corso di word- 
processing. 


Kompas per l'editoria del¬ 
l’informatica e, successiva¬ 
mente, alla Mondadori co¬ 
me capo divisione alla sag¬ 
gistica prima e all’educazio¬ 
ne poi. Nel frattempo ha an¬ 
che scritto, col programma 
di word-processing dell’Ap¬ 
ple II, un best seller edito da 
Laterza col titolo di “A scuo¬ 
la con il computer” che, in 
soli due mesi, ha venduto 
oltre 11.500 copie. 

Ora, insieme a una task- 
force di collaboratori fidatis¬ 
simi, dopo aver realizzato 
una serie di prototipi di soft¬ 
ware e averli sperimentati 
per oltre un anno, ha avviato 
la produzione in serie di pro¬ 
grammi adatti agli home e ai 
personal computer. La sua 
divisione, associata per la 
distribuzione internazionale 
all’editrice francese ViFi Na¬ 
tan, si è specializzata sia nel 


software professionale sia 
in quello didattico. 

Le frecce che Pentiraro, 
Guglielmo Teli della Monda- 
dori, ha al suo arco sono nu¬ 
merose e tra esse alcune 
colpiranno il bersaglio con 
precisione: come Dossier 
(vedere anche a pag. 30), i 
corsi di logica simbolica, le 
lezioni di chimica matemati¬ 
ca e fisica per le scuole su¬ 
periori e le università, e per 
finire, Dedalus, un rompica¬ 
po veramente geniale. 

Ma Egidio Pentiraro ha 
confidato ad Applicando 
che la sua divisione di edito¬ 
ria elettronica sarà sempre 
ben lieta di esaminare tutti i 
software e le proposte di 
programmi che riceverà. 
Autori di software, dunque, 
subito al lavoro! Forse avete 
trovato l’editore che cerca¬ 
vate. 


Beato fra le banche 


Per ora, in Italia, è unico. 
Giovanni Binetti, 38 anni, 
laureato in economia e 
commercio all’Llniversità 
Cattolica di Milano, profon¬ 
do conoscitore dei mercati 
statunitensi, già product- 
manager e, da una decina 
d’anni, consulente di grandi 
gruppi industriali, svolge at¬ 
tualmente quella che in 
America è conosciuta come 
la professione dell’informa- 
tion specialist. 

Nel suo istituto, Informa¬ 
zioni Strategiche, che ha 
sede presso l’Eurisko (V.le 
Monterosa, 15 - Milano; tei. 
02/4696768), Giovanni Bi¬ 
netti lavora di fronte a un 
Apple ///. Lo utilizza come 
terminale collegato, attra¬ 
verso a un modem, alle reti 
di trasmissione tra Milano e 
gli Stati Uniti che gli consen¬ 
tono di “entrare” in una 
qualsiasi delle 250 banche 


dati più ricche del mondo. 
Appartengono quasi tutte 
alle catene californiane 
SDC e Dialog, e per cono¬ 
scerne perfettamente i con¬ 
tenuti e i segreti gli sono oc¬ 
corsi quasi cinque anni. Ma 
ora Giovanni Binetti è uno 
tra i consulenti aziendali più 
ricercati. 

Suoi clienti sono circa un 
centinaio di società tra le 
quali spiccano nomi come 
Ciba-Geigy, Aeritalia, Gea, 
Pierrel, Citybank, Somma 
lanifici, e altri ancora. Quan¬ 
do hanno bisogno di docu¬ 
mentazione, gli sottopongo¬ 
no il problema, anche per 
telefono; Binetti e i compo¬ 
nenti la sua equipe interro¬ 
gano le banche dati, e nel 
giro di pochi minuti le rispo¬ 
ste possono essere ritelefo¬ 
nate alle aziende clienti o 
inoltrate via fotocopia e fat¬ 
torino. 
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The Book of 

APPLE 

SOFTWARE 

1983 

Edited by 

Jeffrey Stanton, Robert R Wells, Ph.D., 
and Sandra Rochowansky 



Il software può essere un inve¬ 
stimento significativo. Molte 
volte, tuttavia, è difficile com¬ 
parare programmi analoghi 
per individuare con esattezza 
il migliore. 

THE BOOK OF APPLE SOFTWA¬ 
RE 1983 risolve completamen¬ 
te questo problema. In 500 
pagine di grande formato e 
riccamente illustrate, esso è la 
sola fonte che descriva e valu¬ 
ti criticamente (non limitan¬ 
dosi ad elencarli) centinaia 
di programmi per l’Apple. 
Ciascuna descrizione è stata 
scritta da un esperto specia¬ 
lizzato in quel determinato 
tipo di programma, si tratti di 
applicazioni grafiche, busi¬ 
ness, word processing o gio¬ 
chi; il risultato è un’informa¬ 
zione imparziale ed altamen¬ 
te qualificata. 

La descrizione non specifica 
solamente le caratteristiche 
dei programmi (funzioni, har¬ 
dware richiesto, linguaggio, 
etc.) ma valuta anche — con 
una serie di punteggi — diver¬ 
si loro aspetti quali facilità 
d'uso, affidabilità, giusto prez¬ 
zo e così via. 


Il libro che nessuno di voi 
può permettersi di non avere! 

Un’intera enciclopedia 

a sole 49.900 lire (IVA e spese d’invio comprese) 



bits & bytes 
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Anaheim 
16-18 maggio 

In California, vicino a Los 
Angeles, una mostra conve¬ 
gno sul tema “L’era emer¬ 
gente dell'Informatica: com- 
puters, comunicazioni e uo¬ 
mini”. Su un’area espositiva 
di 30.000 metri quadrati, si 
terranno in contemporanea 
più di 80 conferenze, riparti¬ 
te per 11 aree principali d’in¬ 
teresse, seminari di aggior¬ 
namento professionale, 
ecc. Per informazioni: Con¬ 
solato Generale America¬ 
no, Via Gattamelata 5, tei. 
02-4982241,20149 Milano. 


Parigi 
30 maggio 
3 giugno 

International Software Exhi- 
bition, prima mostra interna¬ 
zionale del software mai or¬ 
ganizzata, può contare già 
sull’adesione di almeno un 


centinaio di espositori e ri¬ 
chiamerà, secondo le previ¬ 
sioni, almeno 20.000 visita¬ 
tori. Per informazioni: Pre¬ 
mière Exposition Internatio¬ 
nale de Progiciels, 6, Place 
de Valois, F-75001 Paris, 
France. 


San Francisco 
27 ottobre 
3 novembre 

AppleFest d’autunno in Ca¬ 
lifornia, con viaggio a condi¬ 
zioni speciali per i lettori di 
Applicando. Lo straordina¬ 
rio successo di queste ma¬ 
nifestazioni le ha fatte dif¬ 
fondere a tappeto negli Stati 
Uniti. Ma l’AppleFest di San 
Francisco è anche una fa¬ 
volosa occasione per visita¬ 
re la stupenda città califor¬ 
niana. È prevista anche una 
sosta, di un giorno, a Cuper- 
tino. Per maggiori informa¬ 
zioni vedere anche a pagi¬ 
na 33. 


Hit-Parade 

Applicando ha compilato una classifica dei programmi 
più venduti nel mese scorso, in collaborazione con Mi- 
crotech Sistemi-Milano, Tekno Computer-Torino, Sl- 
.PR.EL Srl-Palermo, Informatica Shop-Milano, SI.EL In- 
formatica-Catania, Informatique Sas-Aosta, Bit Compu- 
ters-Mestre. I computer shop che desiderano collabora¬ 
re al rilevamento per il prossimo numero inviino ad Appli¬ 
cando, Corso Monforte 39, 20122 Milano, entro il 5 giu¬ 
gno prossimo, i dati relativi ai 10 programmi che hanno 
più venduto nel mese di maggio. 

I programmi più venduti in aprile sono: 


lo applico, 
tu applichi? 

La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per acquistarlo. 
Oppure sta per cambiarlo 
con un Apple //e. 

O con un Lisa. 

Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


1 . Apple Writer //e 

2. VisiCalc 

3. ApplePlot 

4. Quick File // 

5. ProWriter 

6. Personal Data Base 

7. Locksmith 

8. Visidex 

9. Businnes Graphics 

10. PFS 


Per la pubblicità su queste 
pagine, telefonare allo 
02-702429 

oppure scrivere a: 

Applicando Ufficio Pubblicità 
Corso Monforte 39, 20122 Milano 





Una stampante 
da 100 milioni... 

Stampa 120 caratteri al se¬ 
condo, senza fragore. La sua 
testina ad aghi è garantita: 
dura almeno 100 milioni di ca¬ 
ratteri. Ma soprattutto la nuo¬ 
va stampante Apple Dot Ma¬ 
trix Printer sa simulare moltis¬ 
simi caratteri (Pica, Elite, 
ecc.) delle tradizionali mar¬ 
gherite, anche se non trala¬ 
scia il proporzionale o il com¬ 
presso. Oltre a questo, dise¬ 
gna grafici ad alta risoluzione 
capaci di soddisfare esigenze 
professionali. Tutto ciò vuol 
dire che, con Dot Matrix Prin- 


di caratteri 

ter, il vostro sistema Apple 
può trasformarsi in un centro 
grafico e per il word proces¬ 
sing ad alto livello. 

Per collegare la stampante 
ad Apple II (sia l’Europlus, sia 
Apple//e) occorre un’interfac¬ 
cia parallela standard Centro¬ 
nics (quella che da i migliori 
risultati è senz’altro la Apple 
parallel interface card). 

Se invece si possiede un 
sistema Apple III bisogna 
usare un’interfaccia parallela 
universale (la Universal pa¬ 
rallel interface card). 


Per i commercialisti Apple in psichiatria 

un esperto in gestioni e tutto è come un gioco 


Commercialisti, ragionieri e 
consulenti del lavoro sono le 
categorie cui si rivolge un 
nuovo programma composto 
messo a punto dalla Ceda- 
minicomp di Bologna. Il siste¬ 
ma chiamato Gestu, consiste 
in un pacchetto di sei moduli 
(Gestione archivi, Scadenzia¬ 
rio, Gestione prestazioni, Fat¬ 
tura proforma & parcella, Ge¬ 
stione causali e Valutazione 
bilancio) sviluppati a livello 


colloquiale, in modo che an¬ 
che chi non ha mai visto una 
consolle possa usarli tranquil¬ 
lamente. L’elaboratore, trami¬ 
te il video, interroga, suggeri¬ 
sce e controlla le risposte del¬ 
l’operatore. Ogni digitazione 
errata viene segnalata da un 
segnale acustico, e provoca 
solamente la ripetizione della 
domanda senza alterazione 
negli archivi o alla operatività 
del sistema. 


A Buffalo, nello stato di 
New York (Stati Uniti d’Ameri¬ 
ca) uno psichiatra ha messo a 
punto un programma per Ap¬ 
ple Il che, egli sostiene, simu¬ 
la esattamente la dinamica 
delle relazioni interpersonali 
dell’uomo. 

Il concetto che informa il 
programma è definito psico¬ 
tonica, e usa il computer per 
indurre una persona, nel caso 
specifico il paziente, a risolve¬ 


re ogni problema nell’ambito 
di situazioni precostituite. 

Lo psichiatra, Ronald Levy, 
ha paragonato il programma 
ad un simulatore di volo, simi¬ 
le a quelli usati dai piloti per 
imparare a manovrare un jet: 
“Ciò che si riesce a fare sem¬ 
plifica tutto”, dice il medico. 
”ln pratica, si tratta di ricon¬ 
durre a giochi le situazioni 
che possono creare difficoltà 
ai pazienti.” 


Un monitor di buon load 
per chi usa le cassette 


Non sempre caricare i pro¬ 
grammi da cassetta è un’ope¬ 
razione facile. Anzi: spesso 
capita che, registrati a livelli di 
volume diversi, i programmi si 
devono ripescare sul mangia¬ 
nastri manovrando di conti¬ 
nuo la manopola del volume, 
alla ricerca della posizione 
corrispondente a quella di re¬ 
gistrazione. Tuttavia il man¬ 
gianastri costituisce pur sem¬ 
pre un’alternativa molto più 
economica ai drive. E allora? 


Allora, invece di adottare 
soluzioni empiriche, come 
staccare il jack del registrato- 
re e regolarsi a orecchio, Ra¬ 
dioelettronica & Computer , 
mensile di elettronica pratica 
e programmi per computer, 
nel numero ora in edicola, 
suggerisce l’autocostruzio- 
ne, con poche migliaia di lire, 
di un monitor di buon load, di 
cui pubblica il progetto e tutti i 
dettagli pratici per la realizza¬ 
zione. 










Apple risparmia 
energia 

Il progetto è nato per la sua 
tesi di laurea, ma ora Tinge- 
gner Aldo Mazzi (che si è lau¬ 
reato alTUniversità di Pado¬ 
va, facoltà di tecnica agraria) 
ha installato ben cinque siste¬ 
mi Apple, e dalla fase di puro 
monitoraggio conta di passa¬ 
re a quella di vero e proprio 
controllo. 

Oggetto dei suoi studi sono 
i processi lenti in generale, e 
in particolare quelli che con¬ 
ducono alla produzione di 
biogas per fermentazione na¬ 
turale in assenza d’aria nei li¬ 
quami di recupero. 

Il risultato di quest’opera¬ 
zione è la produzione di meta¬ 
no a costi bassissimi. 

Ma anche le applicazioni 
collaterali sono numerose ed 
estremamente interessanti 
sotto il profilo economico. 

Uno degli Apple dell’inge- 
gner Mazzi tiene sotto con¬ 
trollo una serra, un altro forni¬ 
rà presto assistenza per il re¬ 
cupero dell’acqua calda dalla 


centrale elettrica di Porto 
Tolle. 

“Si tratta di monitoraggi 
che senza un Apple sarebbe 
stato impossibile effettuare’’, 
dice Mazzi. E spiega che il 


problema da risolvere consi¬ 
steva nel rilevare costante- 
mente almeno una quaranti¬ 
na di fattori variabili, fra cui la 
temperatura, la velocità dei 
fluidi, la potenza elettrica as¬ 


sorbita, le unità di gas prodot¬ 
to dal digestore, le condizioni 
meteorologiche, i tempi di 
funzionamento delle appa¬ 
recchiature per la misurazio¬ 
ne dell’usura, eccetera. 



Invece di dare 
i numeri 

Se qualcuno già se ne la¬ 
mentava, ora che sull’Apple 
//e la tastiera bilingue com¬ 
plica un poco le cose, a la¬ 
mentarsene sono di più. 
Parliamo dei numeri: batter¬ 
li, soprattutto se sono tanti, 
oggettivamente è un po’ fa¬ 
stidioso. Ci vorrebbe un ta- 
stierino numerico. E infatti 
c’è, e ci sembra tutto som¬ 
mato corretta la scelta di of¬ 
frirlo come accessorio se¬ 
parato: chi non ne ha biso¬ 
gno, così, può fare a meno 
di comprarlo e di pagarlo. Il 
problema è infatti soprattut¬ 
to di costi: oggi il costo di un 
tasto, sì un tastino di plasti¬ 
ca, è praticamente identico 
al costo di un chip. Come 
dire che a momenti costa 
più la tastiera di tutti i circuiti 


integrati di cui è fatto un 
computer. Sembra assurdo 
ma è proprio così. E così si 
spiega il prezzo del “nume- 
rie keypad”, che di listino 
raggiunge le 371.000 lire. 

Troppo? Sì, per chi non 
deve digitare numeri in con¬ 
tinuazione è decisamente 
troppo e sarebbe una spesa 


assurda. Per chi invece la¬ 
vora soprattutto con le cifre 
si tratta di denari assoluta- 
mente ben spesi. Tantopiù 
che il nuovo tastierino per 
l’Apple He non occupa uno 
slot, è indipendente dallo 
spinotto delle paddle, si in¬ 
serisce comodamente sul 
retro del computer, e so¬ 


prattutto semplifica enor¬ 
memente la vita. Come la 
Gallia di Giulio Cesare è in¬ 
fatti diviso in tre parti: la se¬ 
zione numerica, che com¬ 
prende virgolette, punto, vir¬ 
gola e i numeri da zero a 
nove; la sezione calcolo, 
che comprende parentesi, 
segni di addizione, sottra¬ 
zione, divisione e moltiplica¬ 
zione, oltre ai tasti Return e 
Print; e la sezione VisiCalc, 
che include le frecce per 
spostare il cursore e i tasti 
Esc e Spazio. In pratica, 
usando il VisiCalc, salvo 
che per introdurre eventuali 
definizioni in lettere, si può 
riuscire a non toccare più la 
tastiera normale, lavorando 
esclusivamente sul piccolo 
tastierino numerico. Ma i 
vantaggi sono enormi an¬ 
che nell’uso di altri program¬ 
mi di contabilità, fatturazio¬ 
ne, calcolo, dimezzando 
spesso il tempo di battitura. 
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BUFFER PER 
QUALUNQUE 
STAMPANTE 
CON STANDARD 
CENTRONICS. 

Memorizza immediata¬ 
mente 8 kbyte in uscita 
dal calcolatore e li invia 
successivamente alla stam¬ 
pante. Potete così usare 
il calcolatore mentre la 
stampante lavora. 
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Drive 5” con doppio 



controller 

L. 770.000 


Drive aggiuntivo 

L. 680.000 


Interfaccia stampante 



St. Centronics 

L. 80.000 


Interfaccia stampante 



Centronics per Epson 



con grafica 

L. 130.000 


Come sopra per 



Centronics 739 

L. 150.000 


Espansione 16K 



Language Card 

L. 99.000 


Espansione di memoria 



Maxiram 16K 

L. 150.000 


Interfaccia seriale 



bidirezionale RS232C 

L. 160.000 


Stampante Oki 80 



(parallela) 

L. 720.000 



* N.B. Tutti i prezzi sono comprensivi 
di IVA e spese di spedizione. 






Basicode per 30 fiorini 


Il fatto che non esista un 
linguaggio Basic unico, iden¬ 
tico per ogni tipo di computer, 
può anche scoraggiare i neo¬ 
fiti, allontanandoli dall’elabo¬ 
ratore. Questa la considera¬ 
zione che sta alla base di un 
nuovo sistema per convertire 
ogni linguaggio Basic in uno 
schema base di semplice uti¬ 
lizzo. 

Il dialetto universale, se co¬ 
sì si può chiamare, è stato 
messo a punto da un gruppo 


di olandesi che lo hanno chia¬ 
mato Basicode, ed è disponi¬ 
bile anche per Apple (il che 
significa poter usufruire di 
qualunque tipo di software di¬ 
sponibile sul mercato). Per ot¬ 
tenere la cassetta-program¬ 
ma con le istruzioni, basta in¬ 
viare 30 fiorini olandesi 
(11,36 dollari) a Basicode, 
Administratie Algemeen Se- 
cretariaat, NOS-Po box 10, 
1200 JB Hilversum The Ne- 
derlands. 


Uno sconto? Chiedilo qui 



Unmilioneduecentottanta- 
quattromila lire di sconto. 
Avete capito bene: 1.284.000 
lire di sconto sul sistema Ap¬ 
ple. Lo offre la Iret attraverso 
un blocco di coupons da pre¬ 
sentare ai vostri fornitori di fi¬ 
ducia. Ovviamente, non si 
possono usare per ottenere 
uno sconto-monstre sull’ac¬ 
quisto del sistema base: quel¬ 
lo dovete già averlo. Ma se 
avete intenzione di espander¬ 
vi, di usare appieno le possi¬ 
bilità del computer, allora qui 
vi si offre un’opportunità ec¬ 
cezionale. Tanto per fare 
qualche esempio, la stam¬ 
pante a margherita Apple non 


verrà a costare 3.878.000 lire 
come da listino, ma 
3.490.000; il Joystick lo pa¬ 
gherete 122 mila lire invece di 
135; la stampante ad aghi co¬ 
sterà solo 1.103.000 lire inve¬ 
ce di 1.225.000. Cosa biso¬ 
gna fare per ottenere gli scon¬ 
ti? Semplice. Basta presen¬ 
tarsi al rivenditore di fiducia 
con il blocco dei buoni, e stac¬ 
care quello che si può definire 
quasi un assegno circolare 
per l’acquisto di quel che si 
desidera. E per ottenere i 
buoni? Basta chiederli alla 
Iret, Via Bovio 5, Reggio Emi¬ 
lia. Ma in fretta. La validità dei 
buoni scade il 31 maggio. 




















Autori 

cercansi 

I possibili acquirenti di ho- 
me computer sono in conti¬ 
nuo aumento. Si stima che i 
potenziali compratori siano 
fra i 50 e gli 80 milioni per il 
prossimo decennio. E l’utiliz¬ 
zo degli elaboratori è incer¬ 
nierato principalmente sulla 
gestione dei budget familiari, 
sui videogiochi e sui nuovi si¬ 
stemi di apprendimento. Ma 
la domanda degli utilizzatori 
si sta anche e sempre più ri¬ 
volgendo verso un mercato di 
letteratura specifica. 

Questo è quanto emerge 
da una ricerca effettuata dal- 
l’International Resource De- 
velopement di Norwalk, nel 
Connecticut (Stati Uniti), spe¬ 
cializzata in ricerche di mer¬ 
cato. 

In effetti fra i libri che diven¬ 
tano best-seller sempre più 
spesso cominciano a fare ca¬ 
polino i titoli dedicati al com¬ 
puter. E le riviste specializza¬ 
te hanno sempre più bisogno 
di giornalisti che di computer 
sappiano tutto. A proposito: 
anche Applicando è ben lieta 
di prendere in considerazione 
proposte di collaborazione. 


Quando 
arriva Lisa... 

Le prenotazioni fioccano, 
ma Lisa si fa attendere. Non 
più del previsto, però: alla 
Iret l’avevano promessa per 
settembre, e settembre sa¬ 
rà, almeno per la versione in 
italiano. Per i fanatici della 
versione americana, inve¬ 
ce, potrà esser disponibile 
già da fine giugno. Intanto le 
software house sono al la¬ 
voro per sfornare nuovi pro¬ 
dotti capaci di sfruttare il 
Mouse, il “topolino” che 
consente di lavorare senza 
toccare la tastiera. Del qua¬ 
le Mouse sarà dotato anche 
MacKintosh (è una qualità 
di mela californiana), pros¬ 
sima novità Apple. 



Tron: musica 
maestro! 

“Ci si lavora meglio che con 
il sintetizzatore”, ha dichiara¬ 
to, “anche se la quantità di 
tempo che si deve impiegare 
è superiore. Ma il risultato giu¬ 
stifica ampiamente la scelta.” 
Così dice Frank Serafine, uno 
dei compositori cui la Walt Di¬ 
sney production ha affidato la 
realizzazione della colonna 
sonora del film Tron. E la ta¬ 
stiera sulla quale Serafine ha 
elaborato le sue melodie è 
quella di un Apple II. “La cosa 
che mi ha affascinato mag¬ 
giormente dell’Apple”, ha det¬ 
to il compositore, “è stata la 
purezza di suono che riuscivo 
a ottenere. Veramente incre¬ 
dibile." Ma avrebbe voluto la¬ 
vorare di più: “La musica arri¬ 
va e scompare a tal velocità 
che nessuno riesce ad ap¬ 
prezzare in pieno tutto il lavo¬ 
ro che ci sta dietro”. 


Una leva 
di comando 

Consente di manovrare a 
360 gradi: aggiunge sensibili¬ 
tà al vostro sistema di control¬ 
lo; semplifica lo sviluppo dei 
programmi, accresce il fee¬ 
ling tra voi e il video, aiutando 
nell'esecuzione di disegni e 
grafici. 

Il nuovo Apple joystick per 
Apple //e (è eccellente anche 
per Apple ///) è un elemento 
indispensabile per il vostro si¬ 
stema Apple. 

A differenza delle normali 
paddle, viene manovrato gra¬ 
zie a una leva posta vertical¬ 
mente, dal disegno piace¬ 
vole. 

Accanto al Joystick, sono 
disponibili ora anche le nuove 
paddle, dal design molto più 
gradevole e funzionale delle 
precedenti. 

Ma il vantaggio vero è nel¬ 
l’Apple //e: non occorre più 
aprire il computer per collega¬ 
re Paddle e Joystick; c’è una 
presa sul retro. 
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uffvc'O Accendere il computer 
e andare al cinema. Tornare 
tre ore dopo e trovare tutto fatto: 


lettere, resoconti, verbali, note spese. 
È davvero impossibile? con il WPL... 


Sant’Apple 

lavora 
per me 

L ettere da scrivere, lettere a cui ri¬ 
spondere, fatture da mandare, rap¬ 
porti, resoconti, bozze di contratti, ap¬ 
punti da riordinare, verbali di riunione, 
note interne, note spese: la burocrazia 
dell’ufficio è infinita, schiavizzante, op¬ 
primente. Sul suo altare immoliamo 
ogni giorno almeno i’80% del tempo la¬ 
vorativo. E le decisioni produttive? E il 
lavoro vero, le cose da fare sul serio? 
Ah, per questo c’è sempre meno tempo. 
Così gli organici si infittiscono, i costi 
aumentano, i margini si assottigliano, i 
profitti spariscono. Compriamo un com¬ 
puter, suggerisce qualcuno timidamen¬ 
te. Sì, compriamo uno, cento, mille 
computer, se davvero possono aiutarci, 
risponde un altro, ma con scetticismo, 
quasi con sarcasmo. Non sarà, il com¬ 
puter, un’altra complicazione, un altro 
modo di perder tempo? 

Niente è meglio di un computer per i 
lavori ripetitivi: programmato una volta, 
eseguirà il suo compito in migliaia e mi¬ 
gliaia di occasioni senza lamentarsi per 
gli straordinari non pagati e senza chie¬ 
dere aumenti di merito. Ma per le lette¬ 
re, le note, i resoconti? Troppe sono 
state le delusioni, finora. Troppi gli ac- 



quisti non abbastanza meditati, fatti 
d’impulso o seguendo consigli non suf¬ 
ficientemente professionali. Eppure, a 
pensarci bene, cosa c’è di più ripetitivo 
del lavoro d’ufficio? Ha i suoi riti, rigida¬ 
mente codificati; le sue formule, rigoro¬ 
samente uguali. Il guaio è che riti e for¬ 
mule cambiano da azienda ad azienda, 
da studio professionale a studio profes¬ 
sionale. Ma quando dettiamo una lette¬ 
ra alla segretaria non stiamo a precisar¬ 
le che deve metterci anche la data, non 
stiamo a ricordarle con quali parole con¬ 
cludere e salutare: ci pensa lei, lo sa, è 
“programmata” ormai per provvedere 
autonomamente. 

Quant’altra parte del lavoro d’ufficio è 
altrettanto ripetitiva? E come sfruttare 
questa ripetitività per semplificarci la vi¬ 
ta guadagnandone in efficienza, in pro¬ 
duttività, e, perché no, in tempo libero? 
L'unica vera difficoltà sta nel fatto che 
qui la risposta è individuale, tagliata sul¬ 
la misura della singola azienda o sulle 
esigenze del singolo studio professio¬ 
nale. Ma i notai ci sono riusciti, almeno 
quelli più evoluti utilizzano ora program¬ 
mi di word processing per stilare auto¬ 
maticamente e immediatamente i con¬ 
tratti di routine: basta cambiare nomi, 
cognomi, cifre, oggetto del contratto, 
qualche clausola. Il resto non muta, per¬ 
ché ribatterlo ogni volta? E ci sono av¬ 
vocati che traggono guadagni dal solle¬ 
cito crediti i quali sbrigano montagne di 
avvisi facendo digitare alle segretarie 


START PSX 1 
LOOP NY 

L LETTERATI PO,02 
B 

F/dndir)// 

Y? 

L INDIRIZZI ,D2/«X)>/</N 
PGO TROVA 
PGO FINE 

TROVA PLS INDIRIZZI,D2/«X»/ 
/N=*A 

B 

F/(Nonie)/WA 

PNP 

PSX 41 
PGO LOOP 

FINE PIN[L] (X) vuoto (RETURN) 
NY 


Figura 1 


solo l’indirizzo del debitore e l’importo 
dovuto. 

Sono esempi già noti, e che per que¬ 
sto sembrano banali. E poi, per molte 
cose c’è già la carta carbone. Può esser 
vero. E infatti l’introduzione del compu¬ 
ter negli uffici va fatta con intelligenza. 
Sarebbe stupido accendere un appa¬ 
recchio del costo di qualche milione so¬ 
lo per stilare un appunto interno che si 
può fare a mano. Ma cosa ne direste di 
un programma che, in una lettera da 
mandare a più persone, inserisse auto¬ 
maticamente la data, poi andasse a cer¬ 
carsi da solo gli indirizzi dei destinatari 
principali e di quelli eventualmente inte¬ 
ressati per conoscenza, scrivesse da 
solo convenevoli iniziali e finali, inseris¬ 
se automaticamente frasi destinate so¬ 
lo a uno degli interessati e solo nella 
lettera a lui indirizzata, e il tutto battendo 
non più di una decina di tasti? 

Sì, avete capito bene: una decina di 
tasti per rispondere a un questionario 
sullo schermo, e dalla stampante esco¬ 
no, nel numero giusto di copie, perso¬ 
nalizzate, indirizzate e compiete, lettere 
anche di più fogli, già belle e pronte. È 
facile solo per le circolari di routine? 
Non soltanto per quelle. Il trucco sta nel 
riuscire a schematizzare prima, a ricon¬ 
durre tutto ai vari casi che si possono 
presentare, a standardizzare. E non si 
perde nulla in personalizzazione: basta 
pensare a quanto impersonali sono già 
le normali comunicazioni di lavoro. 

Ma è solo un esempio. Allo stesso 
modo si possono preparare automati¬ 
camente decine di documenti diversi. E 
si può arrivare a realizzare il sogno di 
andare a pescare mentre al lavoro pen¬ 
sa davvero il computer. No, continuate 
a leggere, aspettate a girar pagina alla 
ricerca di qualcosa di più serio. Stiamo 
parlando del WPL, il linguaggio di word 
processing, che permette di program¬ 
mare quel che il computer deve scri¬ 
vere. 

Finora word processing significava 
sostanzialmente questo: che il compu¬ 
ter lavorava come una macchina per 


scrivere. Rispetto alla quale presentava 
molti vantaggi, è vero. Ma alla tastiera 
doveva sempre esserci qualcuno. Con 
il WPL, che fa parte del programma Ap¬ 
ple Writer //e, le cose cambiano: ricor¬ 
date le antiche pianole a nastro perfora¬ 
to, che suonavano anche senza piani¬ 
sta? Ecco, è qualcosa di simile. Certo, 
anche su quelle pianole qualcuno prima 
doveva perforare il nastro, e così, nel 
nostro caso, bisogna che qualcuno 
spieghi al computer una volta per tutte 
cos’è che deve fare. Magari occorrerà 
anche qualche verifica, per vedere se la 
musica è proprio fedele allo spartito, ma 
poi l’esecuzione è garantita, quante vol¬ 
te si vuole. Ma con un vantaggio: la 
pianola eseguiva proprio e soltanto le 
note previste; Apple He invece, con 
questo programma, è in grado di suona¬ 
re anche tutte le possibili variazioni sul 
tema. 

Intendiamoci bene: quest’articolo 
non può spiegare passo per passo, 
esaurendo l’argomento, come funziona 
il WPL e l’Apple Writer//e. Per il primo il 
solo manuale contiene 142 pagine, 
mentre il manuale del secondo è di ben 
208. Inoltre, siccome i programmi di cui 
parliamo si sposano anche con il Quick 
File//, occorrerebbe sintetizzare qui pu¬ 
re le 158 pagine del manuale di que¬ 
st’ultimo. Purtroppo si tratta di manuali 
disponibili per il momento solo in ingle¬ 
se, ma l’Apple Writer He dispone di nu¬ 
merosi “help”, cioè aiuti descrittivi per 
ricordare come ottenere i risultati desi¬ 
derati, e questi sì, possono essere tra¬ 
dotti in italiano portando il dischetto al 
rivenditore di fiducia, o richiedendone la 
traduzione al momento dell’acquisto (il 
rivenditore dispone di un dischetto spe¬ 
ciale, approntato dalla Iret, che provve¬ 
de automaticamente alla traduzione de¬ 
gli help). 

Dunque ci limiteremo a un discorso 
introduttivo, e necessariamente per 
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esempi. Primo esempio: l’esecuzione di 
lettere personalizzate. In figura 1 ripor¬ 
tiamo il programma Autoletter, presente 
sul dischetto dell’Apple Writer Ile. È 
scritto in WPL, ma nessuna paura, non 
è complicato come sembra. Tanto per 
cominciare, in WPL i programmi si scri¬ 
vono come se si scrivesse un testo 
qualsiasi con il word processor, e si sal¬ 
vano come un testo qualsiasi. Per otte¬ 
nerne l’esecuzione basta scegliere, 
sempre da word processor, l’opzione 
stampa (schiacciando Control-P), e poi, 
invece di battere NP (new print) che 
produrrebbe la stampa del testo in quel 
momento in memoria, scrivendo DO 
(fai) seguito dal nome del programma in 
WPL da eseguire. 

Così, per eseguire il programma Au¬ 
toletter di figura 1 occorre avere sul di¬ 
schetto posto nel drive 2 i file Autoletter, 
Letteratipo e Indirizzi. Supponiamo che 
Letteratipo sia un file contenente una 
lettera come quella di figura 2, e che 
Indirizzi sia un file contenente una serie 
di indirizzi come in figura 3. Noi voglia¬ 
mo inviare la lettera di figura 2 a tutti gli 
indirizzi di figura 3 (se ne vedono solo 
due ma supponiamo che siano centi¬ 
naia), sostituendo però alle scritte (in¬ 
dir) e (nome) indirizzi e nomi di ciascun 
destinatario. 

Bene, come si fa? Si accende la 
stampante, si mette nel drive 1 il di¬ 
schetto Apple Writer Ile e nel drive 2 il 
dischetto contenente i tre file che ci inte¬ 
ressano. Si accende il video. Si accen¬ 
de l’Apple Ile. Sullo schermo dopo qual¬ 
che secondo compariranno i titoli di te¬ 
sta consueti e l’invito a battere Return. 
Poi si arriva alla fase in cui normalmen¬ 
te si comincia a battere un testo nuovo, 
giusto? Ecco: invece di battere un testo, 
avendo davvero nel drive 2 i file che 
abbiamo detto e scritti (soprattutto Au¬ 
toletter) così come son riportati qui, ba¬ 
sta schiacciare Control-P e scrivere DO 
AUTOLETTER, D2, dove D2 serve ad 
avvertire il computer che troverà il file 
Autoletter nel drive numero 2. 

A questo punto possiamo anche an¬ 
dar via, sempre che la stampante abbia 
carta a sufficienza, che l’allineamento 
sia giusto, eccetera. Al ritmo di circa 
una al minuto (ma dipende anche dalla 
lunghezza della lettera e dalla velocità 
della stampante), ecco le nostre missi¬ 
ve belle e pronte, personalizzate e indi¬ 
rizzate ciascuna alla persona giusta. 
Cosa è successo? Vediamo, tornando 


alla figura 1 : la prima riga del program¬ 
ma START PSX 1 ha attribuito il valore 
1 alla variabile numerica X. La seconda 
riga LOOP NY ha cancellato dalla me¬ 
moria (NY) quel che eventualmente vi si 
trovava. La terza riga L LETTERATI- 
PO, D2 ha caricato in memoria il file 
Letteratipo, prendendolo dal drive 2. La 
quarta riga B ha portato il cursore all’ini¬ 
zio del testo. La quinta riga F/(lndir)// ha 
cercato (indir) nella lettera tipo. La sesta 
riga Y? si è accertata che (indir) sia 
stato trovato. La settima riga L INDIRIZ¬ 
ZI, D2 /<(X)>/</N ha prelevato dal file 
Indirizzi il primo indirizzo (nel nostro ca¬ 
so X vale ancora 1). L’ottava riga PGO 
TROVA ha spedito il programma sulla 
subroutine TROVA. La nona riga PGO 
FINE è quella che invece entra in azio¬ 
ne se gli indirizzi sono finiti, e avvia il 
programma sulla subroutine di conclu¬ 
sione. La decima riga TROVA PLS IN¬ 
DIRIZZI, D2/<(X)>//N=A usa la varia¬ 
bile (X), che vale ancora 1, per caricare 
in memoria la stringa con l’indirizzo. 
L’undicesima riga B riporta il cursore 
all’inizio del testo. La dodicesima riga 
F/(Nome)/$A/A cerca e sostituisce 
(Nome) con il nome di battesimo nel 
primo indirizzo. La tredicesima riga 
PNP stampa la prima lettera personaliz¬ 
zata. La quattordicesima riga PSX+1 
aumenta di 1 il valore di X. E la quindice¬ 
sima riga crea un loop, cioè rinvia alla 
seconda riga perché il procedimento ri- 
cominci dall’inizio, ma questa volta con 
il valore X incrementato. 

Quando il programma finisce, perché 
sono finiti gli indirizzi, e ci si ritrova alla 
riga 16, FINE PIN [L] INDIRIZZO n. (X) 
Vuoto (battere Return), queste ultime 
frasi compariranno sullo schermo. Si 
saprà così quante lettere sono state 
stampate. 

Come si è visto, si tratta di operazioni 
che normalmente avrebbe fatto l’opera¬ 
tore, ma che invece vengono eseguite 
automaticamente dal computer grazie 
al programma in WPL. Usando un pro¬ 
cedimento analogo, e scrivendo un di¬ 
verso programma in WPL sulla misura 
delle proprie esigenze, si può riuscire a 



(Indir) 


Caro (Nome), 

Congratulazioni! Abbonandoti 
ad Appiicando hai fatto una 
scelta di cui non ti pentirai. 
In un roondo in cui V alta 
tecnologia si evolve in tempi 
brevissimi, poter disporre di 
informazioni costantemente 
aggiornate è essenziale. Ha tu, 
caro (None), col tuo Apple vuoi 
anche divertirti, e Applicando 
fornirà informazioni e 
programmi utili, ma anche 
listati e articoli che 
renderanno più piacevole T uso 
del computer. 

Con i migliori auguri, 

La redazione di Applicando 


Figura 2 


(l)Giovanni Rossi 
Via Bianchi 121 
20100 Milano 


<2)Luigi Verdi 
Piazza Gialli 38 
10100 Roma 


Figura 3 
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raggiungere una discreta automatizza¬ 
zione anche per altri documenti. Nell’e¬ 
sempio che abbiamo considerato, un 
programma in WPL, Autoletter, lavora¬ 
va con due file: Letteratipo e Indirizzi. 
Nulla impedisce di scrivere un program¬ 
ma in WPL che lavori con un numero 
maggiore di file. 

Ma prima di passare al secondo 
esempio, vediamo in particolare uno dei 
file che abbiamo già usato, Indirizzi. In 
figura 3 si vede che ciascun indirizzo è 
preceduto da un numero progressivo, 
compreso fra le parentesi acute, <1>, 
<2>, ecc. Questo file si può preparare 
con l’Apple Writer//e come se si trattas¬ 
se di un testo qualsiasi, volendo anche 
senza numeri iniziali perché esiste an¬ 
che la possibilità di numerare gli indiriz¬ 
zi automaticamente in un secondo tem¬ 
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po. Oppure si può creare partendo da 
Quik File //, splendido programma per 
Apple //e soltanto, che è una sorta di 
comodissimo e flessibilissimo Data Ba¬ 
se. Quick File infatti, tra le varie opzioni 
dei suoi menù, presenta anche quella di 
trasformare il file sul quale si sta lavo¬ 
rando in un file per Apple Writer Ile. 

In pratica questo cosa significa? Che 
se si mettono i propri dati di base su 
Quick File, essi potranno essere sele¬ 
zionati, riordinati e manipolati come si 
vuole. Poi, così adattati, possono esse¬ 
re trasferiti in un file per Apple Writer//e, 
e da qui servire da base per la costru¬ 
zione automatica dei documenti più 
svariati. 

Secondo esempio. Supponiamo di 
dover comunicare settimanalmente a 
tutti i membri dell’alta direzione della 
nostra azienda i risultati di vendita di 
una decina di prodotti, e di volerlo fare 
con una nota interna quanto più possibi¬ 
le personalizzata. E di dover, poi, comu¬ 
nicare non tutti, ma solo una parte degli 
stessi dati, alla forza di vendita, speden¬ 
do lettere personalizzate a ciascun ven¬ 
ditore. E infine di dover inviare ai vari 
ispettori di vendita un resoconto che ol¬ 
tre ai dati di vendita generali contenga 
indicazioni che mettano a confronto il 
rendimento dei singoli venditori. 

Ecco: immaginiamo di dover far que¬ 
sto lavoro tutte le settimane e di avere a 
che tare con una decina di alti dirigenti, 
una ventina di ispettori di vendita e un 
paio di centinaia di venditori, si può pre¬ 
sumere che con tutta la buona volontà 
usando sistemi tradizionali occorrereb¬ 
be almeno un’intera giornata, e sarebbe 
comunque indispensabile rinunciare al¬ 
la personalizzazione e usare massic¬ 
ciamente la fotocopiatrice. 


Con un apposito programma in WPL, 
invece, se ci si è organizzati e si tengo¬ 
no aggiornati tutti i dati di vendita nel 
Quick File, si possono avere le nostre 
230 lettere circa pronte in poco più di tre 
ore, ma soprattutto, con un intervento 
umano nell’ordine dei cinque-dieci mi¬ 
nuti. Come si fa? Si selezionano su 
Quick File i dati di vendita rilevati, e si 
trasferiscono in un file Apple Writer Ile. 
Questo diventa l’unico lavoro vero da 
fare tutte le settimane. Poi si chiede 
l’esecuzione di un programma WPL 
scritto una volta per tutte. E si va a pe¬ 
scare. 

Vediamo cosa dovrà fare il nostro 
programma WPL. Prima di tutto dovrà 
caricare in memoria una lettera tipo de¬ 
stinata ai dirigenti. Poi dovrà andare a 
cercare i file con i nomi e gli eventuali 
indirizzi (interni o esterni) dei dirigenti. 
Poi preleverà nome e indirizzo del pri¬ 
mo dirigente e lo inserirà nella lettera 
tipo. Sempre nella lettera tipo, adegua¬ 
tamente predisposta, dovrà inserire i 
dati di vendita che preleverà dal file ot¬ 
tenuto per trasformazione da Quick Fi¬ 
le. Non preleverà tutti i dati, ma solo 
quelli che possono interessare i dirigen¬ 
ti. Stamperà la lettera e ripeterà le stes¬ 
se operazioni per ciascun dirigente. Fi¬ 
nite le lettere per i dirigenti, cancellerà 
automaticamente dalla memoria la let¬ 
tera, per sostituirla con la lettera tipo, 
diversa, destinata ai venditori. Andrà a 
guardare un file contenente i nomi e gli 
indirizzi di questi ultimi, preleverà i dati 
di vendita che si intende comunicare ai 
venditori, ma solo quelli e non anche gli 
altri riservati ai dirigenti o agli ispettori. 
Stamperà le lettere una per una. E poi 
ricomincerà di nuovo, con procedura 
analoga, per gli ispettori di vendita. 

Sono solo due esempi. Quello che 
conta è il principio: le applicazioni pos¬ 
sono essere infinite. Noi di Applicando 
saremo lieti di pubblicare le più interes¬ 
santi che ci verranno segnalate. 





Come illustrare le vostre fortune 
senza spendere una fortuna* 



Basta un solo grafico per esprimere istantaneamente ciò che altrimenti 
si potrebbe dedurre solo dal lungo e tedioso esame di tabulati. 

Oggi, con il Plotter grafico Strobe 100 e il relativo Software 
potete creare disegni a colori di qualità eccezionale, direttamente con 
0 vostro .elaboratore personale, a un costo molto più basso di altri 
sistemi. Il Plotter Strobe trasforma insiemi di dati in dinamiche 
visualizzazioni, con pochi e semplici comandi del vostro computer. 

Si riducono così a pochi minuti 
le ore di lavoro necessarie per produrre 
diagrammi su carta o su lucidi 
trasparenti. 

Le informazioni presentate 
con istogrammi, curve, disegni, 
diagrammi cartesiani e circolari 
su fogli di 21,5x28 cm, rendono più 
chiare le vostre idee. 

E Strobe, con la precisione dei 
suoi 200 punti al cm, supera 
di parecchio la qualità di plotter che 
costano parecchi milioni di più. 


Inoltre, con i programmi Strobe potete memorizzare 
e modificare i vostri grafici, scegliendo le attività desiderate da facili 
menu in italiano. 

E, se non basta, esiste una grande selezione di software 
compatibile con il plotter Strobe 100, come ad esempio il prestigioso 
VisiCalc™ 

Visitate oggi stesso il vostro rivenditore di fiducia. Vi spiegherà 
il modo migliore per illustrare 
le vostre fortune. 


INFORMATICA 






SISTEMA GRAFICO STROBE 


Via Bovio. 5 
42100 Reggio Emilia 
Tel. 0522/32643 
Tlx 530173 IRETRE 


Vedere per credere. 


•VisiCalc™ è un marchio registrato della VisiCorp™ 
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'"' Il problema era quello di programmare e ottimizzare. 

La Carroccio, specializzata in libri per ragazzi, ha adottato il 
VisiSchedule. Giulio Verne non l’aveva previsto. 


Come lancio 
Pinocchio 



L egno e colla da falegname, un naso 
sempre più lungo per via delle bugie, 
e per amici il gatto e la volpe: Pinocchio, 
con buona pace di Collodi, non è più 
solo questo. Negli uffici delle Nuove 
Edizioni Carroccio anche il celebre bu¬ 
rattino ha mangiato la mela, e il nuovo 
volume ancor fresco d’inchiostro va in 
libreria puntualissimo ai primi di maggio 


grazie a VisiSchedule. "Fare uscire un 
libro non è complicato come il lancio di 
una capsula Apollo”, dice Sandro Bac- 
ci, amministratore della casa editrice, 
“ma non è nemmeno semplicissimo: 
occorre coordinare i tempi di composi¬ 
zione, di correzione delle bozze, di im¬ 
postazione grafica e di stampa, sposan¬ 
doli con i tempi di produzione degli altri 
volumi, in modo da sfruttare al meglio le 
risorse disponibili...” 


Nate negli anni cinquanta negli Stati 
Uniti per facilitare la messa a punto del 
programma di armamenti Polaris, le 
tecniche del Pert (Performance evalua- 
tion and Review Tecnique) e del Cpm 
(Criticai Path Method) hanno trovato 
così applicazioni più pacifiche, tra le Fa¬ 
vole di La Fontaine e i Viaggi di Gulliver, 
i Tre moschettieri e il Corsaro nero. Ver¬ 
ne, che con Salgari alla Carroccio è di 
casa, aveva anticipato il viaggio dalla 
terra alla luna, ma certamente non 






avrebbe mai pensato che per pubblica¬ 
re i suoi libri qualcuno un giorno avreb¬ 
be utilizzato gli stessi strumenti di pro¬ 
grammazione impiegati per il lancio dei 
missili spaziali. 

“L’idea mi è venuta leggendo un arti¬ 
colo che descriveva proprio i preparativi 
per un lancio spaziale”, dice Bacci, 40 
anni, sette dei quali passati come diret¬ 
tore commerciale del Gruppo Editoriale 
Fabbri prima di decidere, con alcuni 
amici, di rilevare la vecchia e gloriosa 
Carroccio. “Di computer non sapevo 
nulla, non me ne ero mai occupato, e se 
devo essere sincero, ancora oggi mi 
sento piuttosto un profano. Ma, mi son 
detto, abbiamo in preparazione una 


ventina di titoli all’anno, vogliamo razio¬ 
nalizzare al massimo tempi e metodi di 
lavorazione, non vogliamo appesantirci 
più del necessario con il personale... 
Tuttavia pensavo che occorresse stan¬ 
ziare almeno una cinquantina di milioni 
per far qualcosa di serio, per cui stavo 
per rinunciare. Poi ho scoperto l’Apple II 
di un amico; è stato lui a spiegarmi co¬ 
me fare.” 

Ha risparmiato denaro grazie a Visi- 
Schedule? “È difficile dire quanto, visto 
che la nuova Carroccio ha adottato que¬ 
sto metodo di lavoro fin dal suo rinasce¬ 
re, circa un anno fa, quindi mi è impossi¬ 
bile un paragone col passato. Quello 
che so per certo è che non viaggiamo 


più per approssimazione. Quando un 
revisore dei testi chiede per quando 
serve un manoscritto sappiamo con 
precisione che data indicargli. E anche 
con la tipografia i rapporti sono facilitati 
perché sanno che sui nostri tempi pos¬ 
sono far conto. Il VisiSchedule comun¬ 
que permette facilissime revisioni: se 
una certa consegna che doveva avveni¬ 
re oggi arriva invece domani, il pro¬ 
gramma ricalcola automaticamente tutti 
i tempi che possono esserne influenza¬ 
ti... C’è un mio amico, direttore di stabili¬ 
mento di una grandissima casa editrice, 
che adesso vuole adottarlo, su Apple, 
per programmare i tempi delle rota¬ 
tive...” 


PROGRAMMA CARRGCCID, »ev:s on 2. 28/ 3/83, File PROVA.DATA 
Preparaci by SANDRO SACCI 


Job DescrIption 


1 PINOCCHIO COMPOSIZIONE 

2 PINOCCHIO CORREZIONE ! BOZZE 

3 PINOCCHIO FOTOLITO COP.+ILL.lN 
9 ANDERSEN COMPOSIZIONE 

4 PINOCCHIO TIPOGRAFIA I BOZZE 

10 ANDERSEN CORREZIONE I BOZZE 

5 PINOCCHIO CORREZ. Il SOZZE 

12 ANDERSEN TIPOGRAFIA C0RP.1 BOZ 

17 PINOCCHIO TIPOGR. CORR. Il BOZ 

11 ANDERSEN FOTOLITO COP.» JNT. 

6 PINOCCHIO RISCONTRI FINALI 

7 PINOCCHIO TYPGN 

13 ANDERSEN CORREZ. II BOZZE 

9 PINOCCHIO STAMPA E CONFEZIONE 

18 ANDERSEN TIPOGR. CORR. il BOZ 2 

14 ANDERSEN RISCONTRI FINALI 

15 ANDERSEN TYPON 

14 ANDERSEN STAMPA E CONFEZIONE 
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SORTING 0RDER IS MILESTCNES 
FR0M THE FIRST JOB TO THE LAST JOB 
J0BS USINO ALL SKILLS 


-Exolanation 

Duration o 4 a norroal job >n> 

SIack t me 4or a norma! job * 

Duration o 4 a criticai patti job ♦ 


Duration of a compieteti job 0—> 
Job wlth zero duration *. >—X 
Job ceadline 


Job with no prerequtsites 

Job with no successors 

Time break due to holiday or week-of-f 


Job £3, PINOCCHIO FOTOLITO 


Duration = 12 DAYS 
ComDÌeted = No 
On criticaì path = No 

SIack time = 1 DAY 
Prerequisites = none 
Manpower sk i 11 s = none 
Total e-f-fort = none 
Manpower cost = LO.00 
Direct cost = LO 

Earliest start = 31/ 3/83 
Earliest -finish = 19/ 4/33 
Latest start = 1/ 4/83 

Latest -finish = 20/ 4/83 


Mai più 
in ritardo 

In questo esempio pratico sono ipo¬ 
tizzate le lavorazioni di due volumi 
ottimizzando l’impiego sia delle la¬ 
vorazioni esterne come la composi¬ 
zione, la fotolito e la stampa, sia dei 
collaboratori interni ed esterni come 
redattori e correttori di bozze. Auto¬ 
maticamente il VisiSchedule evi¬ 
denzia graficamente quelle lavora¬ 
zioni che possono subire ritardi sen¬ 
za provocare lo slittamento della 
data di fine stampa dei volumi. È 
così possibile intervenire in deter¬ 
minate fasi per recuperare gli even¬ 
tuali ritardi. Non solo, ma è anche 
facile ottimizzare l'impiego delle for¬ 
ze lavoro in modo che non vi siano 


giorni di “troppo impiego" e giorni 
“troppo tranquilli”. Il VisiSchedule 
può inoltre sintetizzare ogni lavoro 
(job) evidenziando il primo giorno in 
cui può iniziare (in quanto gli altri 
lavori ai quali il suo inizio è subordi¬ 
nato sono terminati) e l'ultimo giorno 
in cui deve finire se non si vuole che 
il ritardo influisca sulle fasi succes¬ 
sive. Infine, il VisiSchedule può an¬ 
che calcolare il costo totale di una 
lavorazione: basta accoppiare a 
ogni lavoro il numero di persone ad¬ 
dette e la loro retribuzione perii tem¬ 
po relativo. Nell’esempio pubblica¬ 
to, omettiamo per discrezione le ci¬ 
fre, ma ci assicurano che sono mol¬ 
to basse, non perché il personale 
impiegato viene pagato poco, ma 
perché con il VisiSchedule il lavoro 
è ottimizzato al punto di ottenere 
davvero grandi risparmi. 


















































Supponiamo di avere una serie di casi (fino a 225) 
da confrontare con altre serie (fino a 20), e di volerne ricavare 
senza alcuna fatica tutti i possibili indici statistici, compresi quelli 

apparentemente più astrusi, come la varianza, l’errore standard, 

la curtosi... Con questo ottimo programma, che Applicando 
regala su dischetto a tutti i suoi abbonati, diventa facilissimo... 


A prescindere dalla preparazione e 
dalla professione, la maggior parte 
di noi ha un’idea abbastanza precisa di 
cosa significa il termine “media”. Stati¬ 
sticamente la media viene calcolata co¬ 
me somma di tutti i casi divisa per il 
numero dei casi. Quando si fa la media 
di un complesso di numeri si ricava un 
unico dato statistico che compendia 
quei numeri. Le statistiche sommarie di 
questo tipo sono utili per comunicare 
agli altri l’aspetto di un insieme di dati 
senza dover riferire ogni singolo ele¬ 
mento. 

Per esempio è più semplice dire che 
la media della bolletta mensile dell’e¬ 
nergia elettrica nell’anno passato è sta¬ 
ta di 78.000 lire, che non elencare sepa¬ 
ratamente tutte le bollette. Ciò diventa 
ancor più evidente (ed essenziale) 
quando si ha a che fare con un gran 
numero di casi (per esempio la statura 
media dell’uomo). 

Per quanto statistiche del genere si 
incontrino più spesso nelle notizie di 
giornale e nei risultati delle ricerche e 
delle inchieste, esse sono altrettanto 
utili neH’ambiente degli affari (per de¬ 
scrivere le vendite di un articolo in un 
certo arco di tempo, per compendiare 
gli incassi e così via) e in casa (bollette 
dei servizi, calcoli di bilancio eccetera). 

La nostra società è straordinariamen¬ 
te orientata sui'numeri. Guardiamo gli 
indici di borsa per stabilire se le azioni 
sono salite o scese nella giornata. Se¬ 
guiamo i bollettini meteorologici della 
televisione per vedere come sia la tem¬ 
peratura odierna in confronto con quella 
tipica della stagione, e quanta pioggia 
sia caduta in media. Studiamo l’indice 
dei prezzi ai consumo per vedere come 
sia andata per il nostro tenore di vita, e 


che cosa dobbiamo attenderci per il 
prossimo futuro. 

Il programma di statistica descritto in 
questo articolo può aiutare il lettore a 
creare di persona qualche numero si¬ 
gnificativo, che gli potrà essere utile 
qualunque sia la sua attività. Esaminan¬ 
do il programma ed eseguendolo con i 
propri dati si acquisterà una padronan¬ 
za intuitiva del significato dei dati stati¬ 
stici e si otterrà di “sentire” come essi 
siano in relazione gli uni con gli altri. 

Ho scritto il programma del listato in 
Integer Basic per un Apple II Plus da 
48K più scheda language, con una sola 
unità disco e una stampante a 132 co¬ 
lonne. Il disco è necessario solo se si 
vogliono salvare i propri complessi di 
dati per un’ulteriore analisi (per esem¬ 
pio aggiungendo altri casi quando di¬ 
ventano disponibili). Con un po’ di lavo¬ 
ro dovrebbe essere relativamente facile 
modificare il programma per l’uso con 
un sistema munito solo di registratore a 
cassette. Più avanti neN’articolo darò in¬ 
dicazioni per l’uso con una stampante a 
80 colonne, o addirittura senza stam¬ 
pante. Il programma è stato comunque 
collaudato e funziona perfettamente 
anche su Apple Ile. 

Il programma (vedi listato) calcola la 
statistica sommaria per un massimo di 
20 variabili e 225 casi in una volta. Prov¬ 
vede output con titolo e data, numera¬ 
zione automatica della pagina, label va¬ 
riabili, revisione ed editing dei dati (di 
tutti i casi o di qualche dato selezionato 
soltanto), la registrazione su disco e la 
lettura dal disco dei dati e il trattamento 
degli errori. 

I dati statistici di ciascuna variabile 
comprendono la somma di tutti i casi, la 
media aritmetica, i valori massimo e mi¬ 


nimo, l’intervallo dei casi, la varianza, la 
deviazione standard, l’errore standard 
della media, l'asimmetria, la curtosi e il 
numero dei casi. Inoltre il programma fa 
un conteggio di frequenza per ciascuna 
variabile e stampa un istogramma (otte¬ 
nuto mediante una serie di asterischi) 
per mostrare l’aspetto della distribuzio¬ 
ne dei dati. 

Spiegazione dei dati 
statistici 

Per meglio comprendere i dati stati¬ 
stici disponibili grazie a questo pro¬ 
gramma, vediamo questo breve esem¬ 
pio. Supponiamo che si voglia vedere 
quante sigarette si sono fumate in un 
periodo di due mesi. Per farlo si introdu¬ 
ce il numero delle sigarette fumate in 
ciascuno dei 60 giorni. Dopo che si è 
eseguito il programma i risultati potreb¬ 
bero avere l’aspetto di quelli in Figura 1. 

La somma (2002) è il numero totale 
delle sigarette fumate durante i 60 gior¬ 
ni. La media (33,366667) è il numero 
medio di sigarette fumate al giorno nel 
periodo di 60 giorni. Si noti che la media 
è calcolata dividendo la somma per il 
numero dei casi (2002/60). 

Il programma stampa poi il massimo 
(55) e il minimo (18) della variabile. Così 
il numero massimo delle sigarette fu¬ 
mate in un giorno è stato di 55 e il mini¬ 
mo di 18. L’intervallo (37) è semplice- 
mente la differenza fra il massimo e il 
minimo (cioè 55 - 18). 

Varianza e deviazione standard sono 
due dati statistici che descrivono la di¬ 
spersione, o distribuzione, dei valori dei 
dati attorno alla media. Più piccole sono 
le cifre, più vicino alla media si adden¬ 
sano tutti i valori dei dati, ossia più omo- 







Statistiche 
per tutti 


geneo è il complesso dei dati. Matema¬ 
ticamente la deviazione standard non è 
che la radice quadrata della varianza. 

Secondo gli statistici, se si prelevas¬ 
se un numero infinito di campioni equa¬ 
lizzati da una data popolazione, la me¬ 
dia di ciascun campione sarebbe una 
stima della media vera della popolazio¬ 
ne, ma non tutti i campioni sarebbero 
identici. Il modello di quelle medie costi¬ 
tuirebbe una distribuzione normale e 
avrebbe una deviazione standard. La 
deviazione standard di questa distribu¬ 
zione è l’errore standard. Così l’errore 
standard ci aiuta a determinare il poten¬ 
ziale grado di discrepanza fra la media 
campione e la media (solitamente) 
ignota della popolazione. In generale le 
statistiche si fanno solo per campioni: 
per esempio il nostro studio sulle siga¬ 
rette rappresenta solo un campione sin¬ 
golo di tutti i periodi di 60 giorni che 
avremmo potuto esaminare. 

Asimmetria e curtosi ci dicono qual¬ 
cosa sulla forma della distribuzione dei 
dati. Un valore positivo deirasimmetria 
indica che i casi sono raggruppati sulla 
sinistra della media (estremità inferiore) 
con i casi estremi sulla destra. Un valo¬ 
re negativo indica l’opposto. Si vedrà un 
valore vicino a zero (come nell’esempio 
delle sigarette) quando la distribuzione 
è una normale curva a campana. 

La curtosi indica la forma relativa, ap¬ 
piattita o appuntita, della curva dei dati. 
Una distribuzione normale avrà una 
curtosi di zero. Se la curtosi è positiva 
allora la distribuzione è più appuntita 
(stretta) di quanto avverrebbe per una 
distribuzione normale, mentre un valore 
negativo significa che è più piatta. Il va¬ 
lore positivo del nostro esempio (0,46) 
indica che la distribuzione ha un picco 


leggermente più alto di una curva nor¬ 
male. Per vedere la forma della distribu¬ 
zione nel nostro esempio si giri la Figura 
1 sul fianco con il grafico a barre rivolto 
verso l’alto. I due punti più alti (9 giorni 
con 29 sigarette al giorno e 8 giorni con 
35 o 36 sigarette al giorno) sono la ra¬ 
gione della curtosi positiva. 

Infine guardiamo un po’ più da vicino 
le sezioni dell’output che riguardano il 
conteggio della frequenza e l’istogram- 
ma. Nella colonna intitolata Valore so¬ 
no elencati tutti i valori che gli elementi 
dei dati hanno assunto per quella speci- 


som* 

= 2002 

WR1AN2A 

= 49.761582 

MEDIA 

= 33.3666667 DEV. STAND. 

= 7.05418897 

MASSIMO 

= 55 

ERR.STAND. 

= .910691879 

MINIMO 

= 18 

ASIMMETRIA 

= -.0410452523 

RANGE 

= 37 

CURTOSI 

= .462266477 

NO. DEI CASI = 60 




VALORE 

«NT. 

y 

CUM. 7 . 

ISTOGRAMMA 

18 

I 

1.67 

1.67 

* <1) 

19 

3 

5.00 

6.67 

««« (3) 

22 

2 

3.33 

10.00 

« (2) 

24 

1 

1.67 

11.67 

* (1) 

26 

1 

1.67 

13.34 

* (1) 

27 

1 

1.67 

15.01 

* (1) 

28 

1 

1.67 

16.68 

* (1) 

29 

9 

15.00 

31.68 

•««««su* (9) 

30 

4 

6.67 

38.35 

*«*« (4) 

31 

2 

3.33 

41.68 

« (2) 

32 

1 

1.67 

43.35 

* <1) 

35 

8 

.13.33 

56.68 

*«**«**« (8) 

36 

8 

13.33 

70.01 

HHHH (8) 

37 

1 

1.67 

71.68 

* <1) 

38 

5 

8.33 

80.01 

***** (5) 

39 

3 

5.00 

85.01 

*** (3) 

40 

3 

5.00 

90.01 

*** (3) 

42 

1 

1.67 

91.68 

* (!) 

43 

3 

5.00 

96.68 

*** (3) 

45 

1 

1.67 

98.35 

t (1) 

55 

1 

1.67 

100.00 

* (1) 


Fig. 1. Un esempio di utilizzo del 
programma: tutti gli indici statistici 
ricavabili da una serie di 60 casi. 


fica variabile. Freq rappresenta il nu¬ 
mero delle volte in cui il valore dei dati 
sulla sinistra è comparso nel complesso 
dei dati. Per esempio ci sono stati 3 
giorni in cui sono state fumate 19 siga¬ 
rette, 9 giorni in cui sono state fumate 
29 sigarette e così via. 

La colonna % ci mostra la percentua¬ 
le dei valori dei dati che ciascun conto 
rappresenta. Per esempio nel 6,67% 
dei giorni presi in esame sono state fu¬ 
mate 30 sigarette al giorno. La colonna 
% Cum comunica la percentuale cumu¬ 
lativa, ossia la percentuale totale per 
quel valore dei dati più tutti gli altri valori 
minori dei dati. Così per il 41,68% del 
tempo sono state fumate 31 o meno 
sigarette al giorno. 

La colonna Istogramma delle fre¬ 
quenze è il nostro grafico a barre corri¬ 
spondente ai valori dei dati ottenuti: non 
è che una rappresentazione sotto forma 
di immagine della frequenza con cui si è 
presentato ciascun valore dei dati. Ogni 
asterisco sta per una frequenza di dati 
(fino a un massimo di 85). Qualsiasi 
frequenza maggiore di 85 sarà raffigu¬ 
rata da 85 asterischi in stringa. Si noti 
comunque che il numero effettivo è rac¬ 
chiuso fra parentesi dopo la stringa di 
asterischi. Nella maggior parte delle oc¬ 
casioni, dato che ci si è limitati a 225 
casi per variabile, il limite di 85 asteri¬ 
schi non costituirà un problema. 

Esecuzione del programma 

Dopo la presentazione, verrà chiesto 
un titolo (fino a 80 caratteri) per l’output 
voluto, a linea 110. Di solito è meglio 
dare un titolo che descriva lo studio o il 
tipo di dati, per esempio INCASSI IN 
CONTANTI PER IL PERIODO DAL 













01/04/83 AL 30/06/83. Sei mesi più tar¬ 
di, guardando lo stampato, non si dovrà 
stare a chiedersi che cosa riguardasse 
l’analisi. 

Poi si introduce una data per l’esecu¬ 
zione. Per la data si deve usare una 
stringa di otto caratteri, come in 15/04/ 
83 o 15-04-83. 

Poi verrà chiesto: Introduci dati dal 
disco (S/N)? Se si vuol analizzare un 
complesso di dati salvato in preceden¬ 
za così com’è, o se si vogliono aggiun¬ 
gere dati a un complesso del genere si 
prema S. Se si introducono tutti i dati 
direttamente con la tastiera si prema N. 
Se si preme S il programma va alla rou¬ 
tine Lettura del Disco che comincia alla 
linea 1630. 

Dopo la fornitura del nome del file di 
dati l’Apple legge il numero delle varia¬ 
bili (NVAR), il numero dei casi o soggetti 
(NI), il vettore dei nomi variabili (NA- 
MES(I)) e il complesso dei dati (A(I,J)). 
Se si desidera aggiungere altri casi al 
complesso di dati del disco si risponde 
S (sì) alla relativa domanda e si indica il 
numero dei casi aggiuntivi quando vie¬ 
ne chiesto. Purché il numero totale dei 
casi non superi il limite del programma, 
225, il programma chiederà di comin¬ 
ciare a introdurre i dati aggiuntivi (linea 
380). Se non sono stati indicati casi ag¬ 
giuntivi la Descrizione dei Dati passerà 
direttamente alla fase di edit/revisione 
(linea 460). 

Se si è risposto N alla domanda In¬ 
troduci dati dal disco (S/N) è previsto 
che si indichi il numero dei casi, dei 
soggetti e dei nomi delle variabili. Si noti 
che il programma controlla i valori mas¬ 
simo e minimo ammissibili per i primi 
due e una lunghezza massima di sei 
caratteri per ciascun nome di variabile. 
Inoltre se, quando viene chiesto ogni 
nome variabile si preme soltanto Re¬ 
turn, il programma assegna un valore di 
omissione composto della stringa VAR 
più il numero della variabile; per esem¬ 
pio VARI, VAR2 e così via. Quando 
invece i dati vengono letti dal disco, vie¬ 
ne letta al tempo stesso anche il nome 
attribuito alla variabile, e così non è ne¬ 
cessario reintrodurlo. 

L’input di dati dalla tastiera viene fatto 
tutto sulla quarta riga dello schermo. 
Sono chiaramente indicati sia il numero 
del soggetto sia il nome di variabile. 
Ogni volta che ha inizio l’input di dati per 
un nuovo soggetto (caso) si riceve indi¬ 
cazione da un unico bip: CHR$(7) a 
linea 380. In questo modo si possono 
digitare i valori dei dati senza dover con¬ 
trollare continuamente lo schermo per 
vedere se incomincia un nuovo caso, lo 
lo trovo utile, ma chi non la pensa così, o 
lo considera fastidioso, non ha che da 
riscrivere la linea così: 


10 ONERR GOTO 2640 
20 REM ************** 

************* 

30 REM * APPLICANDO - PAG.TITOLO 
* 

40 REM *************** 

************ 

50 M = CHRI <4):N1 = 0 
60 DIM 

NAME$<20) ,A(225,20) ,CT<225) ,VL<2 
25) 

70 TEXT : HOME : F0R I = 1 T0 20: 

PRINT NEXT I: PRINT 

80 PRINT -STATISTICHE 
PER TUTTI 1 : PRINT : FOR 
I = 1 TO 20: PRINT "*= - ;: NEXT 
I 

90 VTAB 23: IWERSE : PRINT "* 

(0 STEVEN A. SCHUARTZ, PH.D. 
1982 *": N0RMAL 

100 FOR 1*1 T0 3000: NEXT I: 

HOME 

110 VTAB 1: HTAB 1: CALL - 958: 
PRINT "TITOLO? (80 CARATTERI 
MAX): 1 : PRINT : INPUT "jTITLE* 
120 IF LEN <T1TLE$) > 80 THEN 
110 

130 VTAB 6: HTAB 1: CALL - 958: 
INPUT -DATA <ES., 03/11/83): 

1 jDT$: 1F LEN (DT$) < > 8 
THEN 130 

140 VTAB 8: HTAB 1: CALL - 868: 
PRINT "DATI GIÀ 7 SU DISCHETTO 
(S/N)? SET 2$: PRINT 2$: IF 
2$ < > "S 1 AND li < > "N" 

THEN 140 

150 IF 2$ = -S 1 THEN 1630 
160 REM ******************* 
#*####*#*#** 

170 REM « IMPOSTA N0.VARJABIL1 E 
CASI * 

180 REM ******************* 
************ 

190 PRINT : INPUT "NUMERO DELLE 
VARIABILI? ";WAR 
200 IF WAR < 1 THEN 1WERSE : 
PRINT B LE VARIABILI DEVONO 
ESSERE ALMENO 1.": N0RMAL : 

GOTO 190 

210 IF WAR > 20 THEN IWERSE : 
PRINT "NUMERO MASSIMO DELLE 
VARIABILI = 20": N0RMAL : GOTO 
190 

220 PRINT : INPUT "NUMERO DEI 
CASP B *CASF 

230 IF CASE ( = 1 THEN IWERSE 
: PRINT "DEVI AVERE PIU' DI 1 
CASO. 1 : N0RMAL : GOTO 220 
240 IF CASE > 225 THEN INVERSE : 
PRINT "NUMERO DEI CASI: NON 
PIU' DI (225) 1 : N0RMAL : GOTO 
220 

250 REM ******************** 
********** 

260 REM * NOMI DA ASSEGNARE ALLE 


~ VAR * 

270 REM ******************** 
********** 

280 HOME : PRINT "NOMI VAR. 
(RETURN PER DEFAULT) 1 : PRINT : 
PRINT 

290 FOR I = 1 T0 WAR 

300 PRINT TA6( 5)"VAR. B ;I;" = 

■ , 

310 ’lNPUT fWEid) 

320 IF LEN (WMEid)) > 6 THEN 
INVERSE s PRINT 'ISSINO 6 
CARATTERI. 1 : N0RNAL : GOTO 300 
330 IF WIEid) = 11 THEN 
WMEid) = "VAR* ♦ STRI (I) 
340 NEXT 1 

350 REM »•**>«**»*»*«* 

360 REM * INPUT DATI * 

370 REM ************** 

380 FOR 1 = NI ♦ 1 T0 CASE: HOME 
: PRINT CHRi (7); 

390 PRINT ‘DATI PER CASO *;I 
400 FOR J = 1 T0 NVAR 
410 VTAB 4: HTAB 1: CALL - 958 
420 PRINT NAMEÌ(J); 1 = "j 
430 INPUT A<1,J) 

440 NEXT J 
450 NEXT I 

460 VTAB 11: HTAB 6: CALL -958: 
IWERSE : PRINT 'C0RREZ./REVIS. 
DATI (S/N)? *}: N0RMAL : GET 
Zi: PRINT Zi: IF Zi < > 'S 1 
AND Zi < > 'N* THEN 460 
470 IF Zi = ’S 1 THEN G0SUB 2030 
480 REM *********** 

490 REM * (VALISI * 

500 REM *********** 

510 FOR J = 1 TO WAR 
520 PR#0: HOME : HTAB 9: FLASH : 
PRINT CHRi (7); CHRi 
^"ATTENDERE : STO 
CALCOLANDO': N0RMAL 
530 SUN = 0:M2 = 0:M3 = 0:M4 = 0 
540 FOR I = 1 T0 CASE 
550 SUh = SUI + A(I,J):M2 = M2 ♦ 
Ad ,J) * 2:M3 = M3 ♦ A(1,J) * 
3:M4 = M4 ♦ A(1,J) * 4 
560 NEXT I 
570 NEAN = SUM / CASE 
580 m = Ad ,J) 

590 Z = 1 

600 FOR 1 = 2 TO CASE 

610 IF Ad ,J) < = MAX THEN 640 

620 Z = I 

630 MX = A(Z,J) 

640 NEXT 1 
650 W = Ad ,J) 

660 Z = 1 

670 FOR I = 2 T0 CASE 

680 IF Ad ,J) > = m THEN 710 

690 2 = 1 

700 1*4 = A(Z,J) 

710 NEXT I 

720 fMNGE = MAX - NN 

730 SS = 0 
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740 FOR I = 1 TO CASE 

750 SS = SS 4 <A(I,J) * MEAN) * 2 

7(40 NEXT I 

770 S2 = SS / (CASE - 1) 

780 SD = SOR (S2) 

790 SE = SD / < SOR (CASE)) 

800 H = (<M3 - 3 * Sili / CASE * M2 
4 3 * (SIW / CASE) ' 2 * SUM) / 
CASE) - (SOM / CASE) * 3 
810 0 = <(M2 - CASE * (SUM / CASE) 

* 2) / (CASE - D) * 1.5:SK = H 
/ 0 

820 H = <(N4 - 4 * SUM / CASE * M3 
4 6 * (SUM / CASE) * 2 * M2 - 4 

* (SUM / CASE) * 3 * SUM) / 
CASE) 4 (SUM / CASE) * 4 

830 0 = <<M2 - CASE » (SUM / CASE) 

* 2) / (CASE - D) * 2:KR = H / 
0 - 3 

840 REM ******************* 

850 REM * SORT IST0GRAH1I * 

860 REM ******************* 

870 M = CASE 

880 M = 1MT (M / 2) 

890 IF M = 0 THEN 1060 
900 K = CASE - M 

910 J1 = 1 

920 11 = J1 

930 LI = Il 4 M 

940 1F Adi,J) < A(L1,J) THEN 
1000 

950 T = Adi,J) 

960 Adi,J) = A(L1,J) 

970 A(L1,J) = 7 

980 II = Il - M 

990 1F 11 > =1 THEN 930 

1000 J1 = J1 4 1 

1010 1F JJ > K THEN 880 

1020 GOTO 920 

1030 REM ******************* 

1040 REM » CONTO FREQUENZE * 

1050 REM ******************* 

1060 CTd) = 1:VL(1) = A(1,J):L = 

1 

1070 FOR I = 2 TO CASE: FOR II = 

1 TO L 

1080 1F Ad,J) = Vidi) THEN 
CTdl) = CT(II) 4 1: GOTO 1110 
1090 NEXT 11 

1100 L = L 4 liCT(l) = 1:VL(L) = 
Ad ,J) 

1110 NEXT I 
1120 REM ********** 

1130 REM * STAMPA * 

1140 REM ********** 

1150 IF J = 1 THEN PRttO: HOME : 
FLASH : PRINT CHRI <?); CHRI 
(7) RACCENDI LA STAMPANTE E 
BATTI (RETURN)...*!: NORMAL : 
GET Zi: PRINT Zi: IF Zi < > 
CHRi (13) THEN 1150 
1160 PR#1: PRINT CHRi (15) 4 
CHRi (9) 4 *132N* 

1170 GOSUB 1580 
1180 PRINT 


1190 PRINT *S(M) = * ; SUM ; : 

POKE 36,39: PRINT 'WRIANZA 
= 1 *S2 

1200 PRINT 'MEDIA = ';ME«4 j: 

POKE 36,39: PRINT 'DEV.STMD. 
s *>SD 

1210 PRINT *mSSlMO = ’;(*»(;; 

POKE 36,39: PRINT 'ERR.STAND. 

= * ‘SE 

1220 PRINT 'MINIMO = 

POKE 36,39: PRINT 'ASIMiETRIA 
= ';SK 

1230 PRINT 'RANGE = ';RANCE ; : 

POKE 36,39: PRINT 'CURTOSI 
- a *KR 

1240 PRINT : PRINT 'NO. DEI CASI 
= ';CASE 
1250 PRINT 

1260 REM ********************* 
1270 REM » STAMPA ISTOGRtftlI * 
1280 REM «*4i***«**««*********)( 
1290 PRINT 'VALORE CONT. 

V. CUM. X*;: POKE 36,39: 
PRINT 'ISTOGRAMiA FREQUENZE* 

1300 PRINT '. 

.';: POKE 36,39: 

PRINT '.': 

PRINT 

1310 CPCT = 0 
1320 FOR I = 1 TO L 
1330 DOT = CTd): IF CTd) > 85 
THEN DOT = 85 

1340 PRINT VL(I)j: POKE 36,13: 
PRINT CTd); 

1350 PCT = CTd) / CASE:PCT = INT 
(PCT * 10000 4 .5) / 100: IF 
PCT > = 10 AND PCT < 100 THEN 
POKE 36,20: GOTO 1390 
1360 IF PCT < 1 THEN POKE 36,22: 
GOTO 1390 

1370 IF PCT = 100 THEN POKE 
36,19: PRINT '100.00';: GOTO 
1410 

1380 POKE 36,21 

1390 Xi = STRi (PCT): IF PCT = 

INT (PCT) THEN Xi = Xi 4 \00' 
1400 PRINT Xi; 

1410 CPCT = CPCT 4 PCT:CPCT = INT 
(CPCT « 100 4 .5) / 100: IF I = 
L THEN CPCT =100: POKE 36,29: 
GOTO 1450 

1420 IF CPCT < 1 THEN POKE 
36,32: GOTO 1450 
1430 IF CPCT < 10 THEN POKE 
36,31 

1440 IF CPCT ) = 10 AND CPCT < 

> 100 THEN POKE 36,30 
1450 Xi = STRi (CPCT): IF CPCT = 
INT (CPCT) THEN Xi = Xi 4 *.00' 
1460 PRINT Xi; 

1470 POKE 36,39: FOR K1 = 1 TO 
DOT: PRINT '*';: NEXT Kl: PRINT 
' CjCTd);')' 

1480 NEXT I 

Segue a pag26 


380 FOR I = NI TO CASE:HOME 

Dopo l'input, se si vuole fare l’edit dei 
dati o rivederli prima dell’analisi si pre¬ 
me S rispondendo alla domanda Edit/ 
Revisione dei Dati? Questa opzione 
del programma permette di esaminare 
e/o cambiare tutti i dati o certi casi scelti. 
Se si preme T quando viene chiesto 
(T)utti i casi o i casi (S)celti? si devo¬ 
no riesaminare tutti i dati, un procedi¬ 
mento lungo quando si ha a che fare 
con un gran numero di soggetti. Co¬ 
munque se si sospetta che ci siano er¬ 
rori solo in alcuni dei casi, la scelta S 
accelererà notevolmente il procedi¬ 
mento di editing e revisione. 

Quando si rivedono tutti i casi viene 
mostrato un caso alla volta e viene chie¬ 
sto di premere: <Esc> per Edit; 
<Return> per continuare. Premendo 
il tasto di ritorno si passa al caso suc¬ 
cessivo. Quando sono stati mostrati tut¬ 
ti i casi hanno inizio i calcoli. Se si trova¬ 
no uno o più valori di dati sbagliati o si 
vuole semplicemente cambiare, si pre¬ 
ma il tasto Escape. Poi si indichi il nu¬ 
mero della variabile che si vuol cambia¬ 
re (contando in giù dalla sommità se 
non si sono usati i nomi variabili di omis¬ 
sione, per esempio VARI, VAR2 e così 
via). 

Infine si introduce il nuovo valore per 
la variabile. Se si è scelta una variabile 
sbagliata basta reintrodurre il suo valo¬ 
re originale esatto. Adesso lo schermo 
sarà aggiornato in modo di mostrare 
l’effetto del cambiamento apportato. Si 
può continuare l'editing del caso pre¬ 
mendo nuovamente il tasto Escape. Si 
prema Return quando si vuol passare al 
caso successivo. 

Il modo di editing dei Casi Scelti ope¬ 
ra in maniera analoga, con la differenza 
che si deve indicare lo specifico # del 
caso da rivedere (o O per finire) prima 
di fare l'edit di ciascun caso o di riveder¬ 
lo. Quando si preme O incomincia l’ana¬ 
lisi. 

Le analisi vengono eseguite su una 
variabile alla volta. Quando ha finito per 
la prima variabile, l’Apple emette due 
bip (linea 1150) e viene chiesto di ac¬ 
cendere la stampante e di premere Re¬ 
turn. La linea 1160 avvia l’output alla 
stampante (PR# 1 ) e la imposta sul mo¬ 
do delle 132 colonne. Si noti che 
CHR$(15) è uguale a un Control-O, il 
comando che imposta una stampante 
Epson sul modo della stampa conden¬ 
sata. CHR$(9) è un Control-I. Si faccia¬ 
no gli opportuni cambiamenti in questa 
linea se la scheda della stampante è in 
uno slot diverso dal numero 1 o se si 
usano caratteri di controllo diversi per 
impostare la stampa a 132 colonne. 

Da questo punto in poi non si ha biso¬ 
gno di intervenire nel procedimento fino 
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a quando sono finite tutte le analisi. Il 
programma fa una pausa dopo avere 
stampato i risultati di ciascuna variabile. 
Non c’è da allarmarsi; ci vuole tempo 
per fare tutti i calcoli necessari e più 
sono i casi più lunghe sono le pause. 

Da ultimo il programma chiede se si 
vuol salvare su dischetto il complesso 
dei dati. In caso positivo si preme S e 
poi si attribuisce un nome al file dei dati, 
quando viene chiesto. Se si vuole scri¬ 
vere sopra un vecchio file di dati si ria¬ 
doperi lo stesso nome. Altrimenti si 
scelga il nome che si vuole (ma atten¬ 
zione a non cancellare così, involonta¬ 
riamente, un file con lo stesso nome 
preesistente e prezioso), si inserisca un 
dischetto e si prema Return quando si è 
pronti a incominciare a salvare. 

Trattamento degli errori 

Oltre a vagliare un appropriato arco di 
risposte quando è richiesto un output 
numerico (per esempio le linee 200, 
210,230,240), la giusta lunghezza del¬ 
le stringhe di caratteri (per esempio le 
linee 120, 130, 320) e le risposte am¬ 
missibili alle domande (come è il caso di 
S per sì e di N per no), il programma ha 
tre grandi routine di errore situate fra le 
linee 2430 e 2680. La prima, che comin¬ 
cia sulla 2430, vaglia gli errori di lettura 
dal disco; la seconda tratta gli errori di 
scrittura sul disco; la terza è un raccogli- 
tutto, che tratta l’input di dati illegali e 
altri errori non specificati. 

La prima linea del programma (10) 
imposta la routine primaria Onerr Goto 
e indirizza tutti gli errori del genere alla 
linea 2660. Se si verifica un errore la 
stampante viene chiusa (PR #0), sem- 
preché fosse aperta, e la variabile ERR 
è fissata uguale all’appropriato codice 
di errore Applesoft o DOS (PEEK(222)). 

Se il codice di errore è 254 (“cattiva 
risposta a una richiesta di input”) com¬ 
pare sullo schermo un breve messag¬ 
gio di errore e viene data occasione di 
ripetere l’ingresso. Ciò è inteso a impe¬ 
dire che un cattivo ingresso di dati (per 
esempio un numero come 3L5 invece di 
315) metta bruscamente fine al pro¬ 
gramma. 

Se viene individuato qualsiasi altro 
tipo di errore il programma stampa il 
codice di errore e la linea nella quale 
esso si è verificato, lo sono contrario a 
inabilitare il Control-C. Fintanto che es¬ 
so rimane intatto (come avviene in que¬ 
sto programma), si può sospendere l’e¬ 
secuzione senza spegnere la macchina 
o premere Reset. 

Se il complesso iniziale dei dati è letto 
da un disk file (routine che comincia a 
linea 1650) tutti gli errori sono indirizzati 
alla routine a 2460. Vengono vagliati 
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1490 PRINT : FOR 1 = 1 TO 132: 
PRINT NEXT Is PRINT : 
PRINT 

1500 NEXT J 

1510 PRINT CHR$ (12): PR#0 
1520 HOME : PRINT 'SALVI I DATI 
SU DISCO (S/N)? ";s SET li\ 
PRINT Z$: IF Z$ < > "S" AND li 

< > "N" THEN 1520 

1530 IF li = "N" THEN END 

1540 GOTO 1870 

1550 REM **************** 

1560 REM * INTESTA2.PAG * 

1570 REM **************** 

1580 FOR 1 = 1 TO LEN OMNE*<J)) 
4 4: PRINT NEXT I: PÙKE 
36,131 - LEN (TITLE$): PRINT 
T1TLE* 

1590 PRINT '* '\mtiU)\' 

POKE 36,126 - LEN ( STR* <J)): 
PRINT "PAGE ■jJ 

1600 FOR I = 1 TO LEN <MNE«(J)) 
4 4: PRINT NEXT 1: POKE 
36,123: PRINT DT$ 

1610 RETURN 

1620 REM ************* 

1630 REM * DISK READ * 

1640 REM ************* 

1650 ONERR GOTO 2460 
1660 HOME : INVERSE : PRINT "NOME 
DEL FILE: 1 ;: N0RMAL : INPUT " 
■;« 

1670 VTAB 3: PR1N7 'BATTI 
QUALUNQUE TASTO QUMD0 SEI 
PRONTO*j! GET Zi: VTAB 6: KTAB 
15: FLASH : PRINT '«STO 
LAVORANDO»': N0RML 
1680 PRINT Dij'NOMON C,1,0' 

1690 PRINT DÌ;*0PEN';FÌ 
1700 PRINT Di ;"READ';Fi 
1710 INPUT NVAR: INPUT NI 
1720 FOR I * 1 T0 NVAR: INPUT 
NAMEi(l): NEXT 

1730 FOR 1 = 1 T0 NI: FOR J = 1 
TO NVAR 

1740 INPUT Ad,J) 

1750 NEXT J 

1760 NEXT I 

1770 PRINT Dii'CLOSE'jFi 
1780 ONERR GOTO 2660 

1790 HOME : PRINT 'VUOI 

AGGIUNGERE DEI DATI DA 
TASTIERA?': PRINT '(BATTI S 0 
N): ';: GET Zi: PRINT Zi: IF Zi 

< > 'S* AND Zi < > 'N* THEN 
1790 

1800 IF Zi = 'N* THEN CASE = NI: 
GOTO 460 

1810 VTAB 5: HTAB 1: CALL - 958: 
INVERSE : PRINT 'NUMERO DEI 
CASI ADDIZIONALIN0RNAL : 
INPUT ' *;N2 

1820 CASE = NI 4 N2: IF CASE > 225 
THEN INVERSE : PRINT 'NUMERO 


MASSIMO DEI CASI = (225)': 
N0RMAL : FOR I = 1 T0 1500: 
NEXT I: GOTO 1810 
1830 GOTO 380 

1840 REM ********************* 
1850 REM » SAVE DATI SU DISK * 
1860 REM ********************* 
1870 ONERR GOTO 2530 
1880 HOME 

1890 INVERSE : PRINT 'NOME DEL 
FILE:';: N0RMAL : INPUT ' 

•;FÌ: IF Fi = " THEN 1890 
1900 VTAB 3: PRINT 'BATTI 
QUALUNQUE TASTO QUANDO SEI 
PRONTO.'; : GET Zi: VTAB 6: HTAB 
15: FLASH : PRINT '«STO 
LAVORANDO))': N0RMAL 
1910 PRINT Dij'OPEN'jFi 
1920 PRINT Dij'DELETE'jFi 
1930 PRINT DÌ;'0PEN'iFÌ 
1940 PRINT Di;'URITE';Fi 
1950 PRINT NVAR: PRINT CASE 
1960 FOR I = 1 T0 NVAR: PRINT 
NANEid): NEXT 

1970 FOR I = 1 T0 CASE: FOR J = 1 
T0 NVAR: PRINT Ad,J): NEXT J: 
NEXT I 

I960 PRINT Dij'CLOSE'jFi 

1990 HOME : END 

2000 REM ******************** 

2010 REM * C0RR/REVIS. DATI * 

2020 REM HIHHHHHHHIH 
2030 VTAB 14: HTAB 6: CALL - 
958: INVERSE : PRINT '(T)UTTI 0 
(A)LCUNI CASI? ';: N0RMAL : GET 
Zi: PRINT Zi: IF Zi < ) 'T* 

AND Zi < > 'A' THEN 2030 
2040 IF Zi = 'A' THEN 2270 
2050 REM **************** 

2060 REM « TUTTI I CASI * 

2070 REM **************** 

2080 FOR I = 1 T0 CASE: HOME 
2090 INVERSE : PRINT ' CASO 
N.'jl;' ': N0RMAL : PRINT : 
PRINT 

2100 FOR J = 1 T0 NVAR 
2110 PRINT NAMEÌ(J); TA8< 8)'= 

' ;Ad ,J); 

2120 IF NVAR > = J + 10 THEN 
PRINT TAB( 21)NAMEÌ(J 4 10); 
TAB( 28)'= ';A<I,J 4 10): GOTO 
2140 

2130 PRINT 

2140 IF J < 10 THEN NEXT J 
2150 J = NVAR 

2160 VTAB 24: HTAB 1: CALL - 
958: INVERSE : PRINT '(ESC) PER 
CORREGG.; (RETURN) PER 
C0NTIN.'; : GET Zi: N0RMAL : IF 
Zi < ) CHRi (13) AND Zi < > 
CHR$ (27) THEN 2160 
2170 IF Zi = CHRi (13) THEN 
NEXT I 

2180 IF 1 ) CASE THEN RETURN 
2190 VTAB 23: HTAB 1: CALL - 
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958: INVERSE : PRINT ‘CAMB1AN. 
DATI VARIABILE N. (1-‘;WAR;*)? 
NORMAL : INPUT ‘‘;V 
2200 IF V < 1 OR V ) WAR THEN 
2190 

2210 VTAB 23: HTAB 1: CALI - 
958: IWERSE : PRINT ‘WLORE 
ATTUALE CASO N.*;I;‘ 

-iNAMEStV);’ = ’;A<I,V): PRINT 
'CAMBIARE IN? ’j: NORMAL : 

INPUT ‘‘;A(I,V) 

2220 1 * 1 - 1* NEXT I 
2230 RETURN 

2240 REM «mwhhhmhhhhhhi 
2250 REM * ALCUNI CASI * 

2260 REM IMMMMMMM 
2270 HOME : INVERSE : PRINT 
•N.CASO DA CORREGG. (0 0 PER 
FINIRE)?*; : NORMAL : INPUT * 

* ’Cl 

2280 * IF CI = 0 THEN RETURN 
2290 1F CI < 1 OR CI > CASE THEN 
PRINT : PRINT CHRI (7); CHR$ 
(7);“»** IL CASO DEVE ESSERE 
FRA 1 E *;CASE;*»**■: FOR I = 1 
TO 1500: NEXT I: GOTO 2270 
2300 HOME : INVERSE : PRINT * 

CASE N.*;C1: NORMAL : PRINT : 
PRINT 

2310 FOR J = 1 TO NVAR 
2320 PRINT NAMEI(J); TAB( 8)*= 

*;A(C1,J); 

2330 IF WAR > = J ♦ 10 THEN 
PRINT TAB( 21>MME*(J 4 10); 
TA8< 28)*= *;A(C1,J + 10): GOTO 

oocn 

2340^ PRINT 

2350 IF J < 10 THEN NEXT J 
2360 J = WAR 

2370 VTAB 24: HTAB 1: CALL - 
958: INVERSE : PRINT * <ESC) 

PER CORR.i <RETURN> PER CONTJN. 

GET Z*: NORMAL : IF li < ) 
CHR$ <13) AND Z* < > CHR$ 

(27) THEN 2370 

2380 IF Zi = CHRi (13) THEN 2270 
2390 VTA8 23: HTAB 1: CALL - 
958: INVERSE : PRINT ’CAMBIAM. 
DATI VARIABILE N. (1-*;NVAR;*)? 
NORMAL : INPUT “;V 
2400 IF V < 1 OR V > NVAR THEN 
2390 

2410 VTAB 23: HTAB 1: CALL - 
958: INVERSE : PRINT ‘WLORE 
ATTUALE CASO N.*;!;* 

*;NANE$(V);* = *;A(C1,V): PRINT 
■CAMBIARE IN? NORML : 

INPUT ,, ;A(C1,V) 

2420 GOTO 2300 

2430 REM <*«*****»*»*«******»*<» 
2440 REM * (1) DISK READ ERROR * 
2450 REM *****)«*****»***«****i* 
2460 ERR = PEEK (222) 

2470 IF ERR = 5 OR ERR = 6 OR ERR 
= 11 THEN PRINT 


Dii’OELETE 1 ;Fi: HOME : FLASH : 
PRINT * IL FILE NON ESISTE. 
SCEGLI DI NUOVO.... 1 : NORMAL : 
PRINT Dij'CATALOG*: FOR Z9 = 1 
TO 10000: NEXT Z9: GOTO 1660 
2480 IF ERR = 13 THEN HOME : 
FLASH : PRINT ‘ERRORE NEL TIPO 
DI FILE. SCEGLI DI 

NUOVO.*: NORMAL : PRINT 

W;‘CATAL0G‘: FOR 29 = 1 TO 
10000: NEXT Z9: GOTO 1660 
2490 GOTO 2660 

2500 REM ***««************»****<* 
2510 REM * (2) DISK URITE ERROR * 
2520 REM *****«««««****»*****«»** 
2530 ERR = PEEK (222): HOME 
2540 IF ERR = 4 THEN FLASH : 
PRINT ML DISCO E' PROTETTO. 
METTINE UN ALTRO. 1 : NORHAL : 
GOTO 1890 

2550 IF ERR = 9 THEN PRINT 
D$;‘DELETE‘:F$: FLASH : PRINT 
■IL DISCO E ; PI940. CMBJA E 
PROVA ANCORA 1 : NORMAL : GOTO 
1900 

2560 IF ERR = 10 THEN FLASH : 
PRINT * IL FILE ESISTE GIÀ' ED 

E' PROTETTO.*: INPUT 'VUOI 

SCRIVERCI SOPRA (S/N)? "jAi: IF 
Ai < > ‘S* AND Ai < ) ‘N* 

THEN 2560 

2570 IF ERR = 10 THEN 2600 
2580 IF ERR = 11 THEN FLASH : 
PRINT ‘NOME DI FILE ILLEGALE. 

SELECT AGAIN.‘: NORfttL : 

PRINT Dii'CATALOG 1 : INPUT 
•NUOVO FILE : *;FÌ: HOME : GOTO 
1900 

2590 GOTO 2660 
2600 IF Ai = *S* THEN PRINT 
Dii'UNLOCK'iFi: GOTO 1900 
2610 IF Ai = ‘N 1 THEN INPUT 
■NUOVO FILE (RETURN PER 
1KTERR.): 1 ;Fi: IF Fi = CHRi 
(13) THEN HOME : END 
2620 HOME : GOTO 1900 
2630 REM ******************** 

2640 REM * (3) ALTRI ERRORI * 

2650 REM «*«««*«****<**«*««<» 

2660 PR#0:ERR = PEEK (222) 

2670 IF ERR = 254 THEN PRINT : 
FLASH : PRINT ‘INPUT ILLEGALE. 

PROVA DI NUOVO.*: NORMAL : 

RÉSUMÉ 

2680 HOME : PRINT ‘ERRORE 
N.‘;ERR;* ALLA LINEA *; PEEK 
(218)4 PEEK (219) * 256;*.*: 
END 


quattro tipi principali di errori concer¬ 
nenti la lettura: (1) END OF DATA, 
spesso conseguenza di un'apertura e 
un tentativo di leggere un file non esi¬ 
stente; (2) FILE NOT FOUND; (3) SYN- 
TAX ERROR, nome di file illegale; e (4) 
FILE TYPE MISMATCH, tentativo di 
leggere dati da un file non di testo. 

Dato che la maggior parte degli errori 
si verifica dopo che l’Apple ha aperto il 
file (spesso un file che in origine non 
esisteva) il file erroneo viene cancellato 
dalla memoria (non dal dischetto) e vie¬ 
ne visualizzato il catalogo, per scegliere 
il nome di file giusto. Poi il programma 
continua normalmente. Se la lettura del 
disco è stata completata con successo, 
l’Onerr Goto è ripristinato nella linea 
1780 alla routine principale di cattura 
degli errori a linea 2660, che rimane in 
effetto fino a quando tutti i calcoli e la 
stampa sono stati completati. 

Se si desidera salvare i dati su disco, 
l'Onerr è messo a linea 2530. Vengono 
vagliati quattro tipi di errori concernenti 
la scrittura: (1) WRITE PROTECTED: 
sul dischetto la tacca di protezione in 
scrittura è coperta; (2) DISK FULL; (3) 
FILE LOCKED; e (4) SYNTAX ERROR: 
nome di file illegale. Come avviene per 
gli errori di lettura dal dischetto il display 
dice come correggere l’errore. 

Modifiche per la stampante 

In generale è necessario cambiare 
solo qualche linea perché il programma 
possa essere eseguito con una stam¬ 
pante a 80 colonne: qualche poke, la 
lunghezza delle stringhe deH’istogram- 
ma e il comando Printer On, come indi¬ 
cato in Fig. 2. Per creare una versione 
del programma destinato solo allo 
schermo si hanno due scelte: eliminare 
le routine deiristogramma o modificare 
il programma in modo che fotogramma 
venga stampato sullo schermo come 
seconda pagina per ogni variabile. 

Steven A. Schwartz 


120 

IF LEN(TITLE$) > 

65 THEN HO 

1160 

PRfll 

1 : PRINT CHR$<?) 4 "80N' 

1330 

DOT 

= CT(I) : IF 

CT(I) > 33 

THEN DOT = 33 


1490 

PRINT : FOR 1 = 

1 T0 80 : 

PRINT ' 

'-■; : NEXT 1 

: PRINT : 

PRINT 



1580 

t • • 

POKE 36,79 . 

, , 

1590 

i t i 

POKE 36,74 . 

, , 

1600 


POKE 36,71 : 

PRINT DT$ 


Fig. 2. Le linee da modificare per la 
stampa su 80 colonne. 
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■appiè 
a Genova 



LISA LA NUOVA WORKSTATION 
APPLE CHE SI PROIETTA 
NELL’OFFICE AUTOMATION FUTURE 


E INOLTRE NEI NOSTRI COMPUTER SHOP 

Apple III potenziato 
con nuove periferiche 

O 

Apple II e II nuovo 
personal Inimitabile 

O 

Drive 5” e 8” floppy 
e Winchester fino a 20MB 

O 

Monitor monocromatici 
e colore ad alta risoluzione 

O 

Stampanti a margherita 
e aghi veloci e silenziose 

O 

Plotter professionali 
a più colori e formati 

O 

Supporti magnetici e 
accessori di qualità 

O 

Modulistica, stampati 
libri e letterature 


DISTRIBUZIONE 
PER L’ITALIA 


informatica 

computar 

cantar 


Corso Gastaldi 77R 
Tel. 300797 

Via San Vincenzo 129R 
Tel. 581815 




Quanti dati riuscite a stipare nei 
^^vostri minidisk? Grazie a questo programma 
potrete aumentarne la capacità del 10%, 
utilizzando anziché 496 settori 
ben 544. Non è proprio come possedere 

un ProFile da 5 Mega byte, però... 


I l DOS 3.3 consente di sfruttare meglio 
del DOS 3.2 la capacità dei dischetti. 
Ma sui dischi a 16 settori si può memo¬ 
rizzare una quantità ancor maggiore di 
dati? Sì, si può: è arrivato l ’Eliminatore 
di DOS. Il programma qui listato modifi¬ 
ca la tavola di contenuti del volume 
(VTOC) in modo che mostri le piste 0-2 
come disponibili per la memorizzazione 
di dati. Questo metodo ha però uno 
svantaggio: non è più possibile fare il 
booting del dischetto. Questo significa 
che lo si deve fare con un disco norma¬ 
le, e poi sostituire questo con il disco 
modificato. Tutto il resto è identico a un 
disco ordinario, salvo che in luogo dei 
normali 496 settori ne diventano dispo¬ 
nibili per la memorizzazione 544. 

Il programma 

Il programma è scritto in Applesoft, e 
scrive in memoria una tabella IOB nelle 


1 REM 

**m***********«*******«****** 

2 REM * ELIMINATORE DI DOS 
# 

3 REM * BY TONY S. DAHBURA 
* 

4 REM * COPYRIGHT (0 1983 
* 

5 REM * BY APPLICANDO AND 
# 

6 REM * BY M1CR0-SPARC INC 
# 

7 REM « LINCOLN, MA 01773 
* 

8 REM 

*m*m*«**mm*mm«***** 
10 TEXT : HOME : CLEAR :D$ = 

CHR$ (4) 

20 REM POKE LA TABELLA IOB 
30 RESTORE ; FOR J = 768 TO 800: 

READ I: POKE J,1: NEKT J 
40 DATA 

169,3,160,10,32,217,3,96,0,0,1,9 
6,1,0,0.0,27,3,0.32,0,0.1.0,0,90 
,ì ,0,1 ,239,216,0,0 
50 PR1NT “ELIMINATORE DI 


locazioni 768 ($300)-800 ($320). È ne¬ 
cessaria una tabella IOB per leggere e 
scrivere i settori. Poi il programma chie¬ 
de in quale slot e quale drive leggere e 
scrivere. Quindi fissa il numero del volu¬ 
me a 0, in modo che ci sia corrisponden¬ 
za con qualsiasi disco. Viene cancellato 
il flag di errore, alla linea 210, ed è inse¬ 
rito in memoria il comando di lettura, 
alla linea 230. 

Poi il programma legge la pista 17, 
settore 0 e scrive in memoria 255 ($FF) 
nella locazione della piste 0-2 nella ta¬ 
vola. Ogni pista ha nel VTOC un codice 
che indica se è piena o vuota. Segnan¬ 
do certe locazioni e riscrivendo il VTOC 
si fa in modo che il disco pensi che le 
piste 0-2 siano vuote. 

Scrittura sopra il DOS 

Il passo successivo consiste nello 
scrivere zeri sopra le piste 0-2 in modo 


D0S-D1SGHI A 16 SETTORI': PRINT 
‘ DI T. DAHBURA" 

60 PRINT : PRINT 
70 PRINT "QUESTO PROGRAMMA 
RiMU0\7E IL DOS DALLE': PRINT 
■TRACCE 40-42 , CHE RENDE 
DISPONIBILI': PRINT 'PER LA 
CONSERVAZIONE DI DATI.': PRINT 
75 PRINT : PRINT "(0 1983 - 
APPLICANDO AND MICRO-SPARO INC" 
80 POKE 34,8: HOME 
90 PRINT “QUALE SLOT?': 

100 GET SL4:SL = DAL <SL4>: IP 
SL < 1 OR SL > ? THEN 100 
110 PRINT SL4 

120 PRINT : PRINT “QUALE DRIVE?": 
130 GET SDÌ :SD = UAL (SDÌ): IF 
SD < > 1 AND SD < >2 THEN 
130 

140 PRINT SD4 

150 HOME : PRINT 6 SLOT ';SL: 
PRINT" DRIVE “:SD: POKE 
34,11: HOME 

160 REM POKE SLOT E DRIVE 
170 POKE 779,SL * 16: POKE 793.SL 
* 16: POKE 780.SD: POKE 794.SD 














Più spazio 
nel dischetto 


che siano sgombre per i dati. La linea 
380 inserisce in memoria gli zeri e le 
linee 400-470 li scrivono sul dischetto. 
Dopo ogni lettura o scrittura c'è un salto 
a una subroutine nelle linee 520-590. 
Questa subroutine controlla se si siano 
verificati errori. Si verifica un errore se la 
locazione 791 ($317) non ha uno zero. 
Per esempio se questa locazione con¬ 
tenesse un 16 ($10) il dischetto sarebbe 
protetto in scrittura. Se il programma fa 
scendere in Basic e visualizza un mes¬ 
saggio di errore si corregga l’errore e si 
giri nuovamente la routine. 

Quando il programma è finito chiede¬ 
rà se si vuol rimuovere il DOS da un 
altro dischetto; se si batte “N” esce. 

Si rammenti che con i dischetti così 
trattati non si può fare il bootstrap, dato 
che non c’è più il DOS, e dunque lo si 
deve fare prima con un disco normale. 
Tutte le altre funzioni sono identiche. 
Buona memorizzazione! 



v w* 



180 REM VOLUME 01 0 
190 POKE 781,0: POKE 792,0 
200 REM CANCELLA ERRORE 
210 POKE 791.0 

220 REM IMPOSTA PER LEGGERE, 
C0DICE=1 
230 POKE 790,1 

240 PRINT : PRINT “INSERIRE IL 
DISCO NEL DRIVE INDICATO 1 : 

PRINT ‘E BATTERE <3PAZ1Q> PER 
MODIFICARE, Q*i PRINT '<RETURN) 
PER USCIRE*: HTAB 20 
250 GET Ai: 1F A* < > CHRI (32) 
AND Ai < > CHRi (13) THEN 250 
260 1F Ai = CHRi (13) THEN TEXT 
: END 

270 PRINT 

280 HOME : PRINT “STO LEGGENDO IL 
VT0C, 17.0“ 

290 POKE 782,17: POKE 783.0: POKE 
786.0: POKE 787,32 
300 CALl 768 

310 G0SUB 520: REM CONTROLLO 
ERRORI 

320 REM* SEGNA LE LOCAZIONI VT0C 
Ì3C-Ì43 


330 REM COME VUOTE 

340 F0R X = 60 T0 67 STEP 4: POKE 
8192 4 X,255: POKE 8193 * 

X 255: NEXT X 

350 ’hCmÈ : PRINT “STO SCRIVENDO 
IL VT0C" 

360 POKE 790,2: CALL 768: G0SUB 
520 

370 HCME : PRINT ‘ORA CANCELLO LE 

TRACCE 11-12" 

380 F0R X = 8192 T0 8448: POKE 
X.O: NEXT X: REM FA UNA PAGINA 
DI 0 PER MEMORIZZARE [>ATI DOVE 
ERA II DOS 

390 POKE 786,9: POKE 787,32: REM 
BUFFER 

400 POKE 790,2: REM IMPOSTA PER 

SCRIVERE. C0DICE=2 
410 FOR X = 1 T0 2 

420 FOR Y = 0 T0 15 

430 POKE 782,X: REM TRACCIA 

440 POKE 783.Y: REM SETTORE 

450 CALl 768: REM ESEGUE URITE 
460 GOSUE 526: REM CONTROLLO 

ERRORI 

470 NEXT Y: NEXT X 


480 HOME : PRINT : PRINT 'IH 
ALTRO DISCHETTO (S/N)’ 1 : 

490 GET Ai: IF Ai < ) *S‘ AND Ai 
< > “N" THEN 490 
500 PRINT Ai: IF Ai = *S‘ THEN 
HOME : GOTO 160 
510 TEXT : END 
520 IF PEEK (791) = 0 THEN 
RETURN 

530 E = PEEK (791) 

540 IF E = 16 THEN PRINT : PRINT 
‘IL DISCO E' PROTETTO 1 
550 IF E = 32 THEN PRINT : PRINT 
■IL VOLUME NON CORRISFGNDE“ 

560 IF E = 64 THEN PRIMI : PRINT 
‘HAI SBAGLIATO DRIVE" 

570 IF E = 128 THEN PRINT : 

PRINT "ERRORE DI LETTURA" 

580 IF E < > 16 AND E < ) 32 
AND E < > 64 AND E < >128 
THEN POKE 791,0: RETURN 
590 PRINT CHRi (7): CHRi (7): 
TEXT : END 

Disponibile su dischetto. 

Vedere a pag. 80. 


Nìbbte e Applicando 
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i*wio Prendete un ex astrotisico, un cibernetico, 

" un esperto di Pascal, un giovanissimo 
pieno di entusiasmo e una ragazza bruna. Aggiungete 
un Apple II. Mescolate bene. E dopo qualche mese... 


Da sinistra: Piero 
Schiavo Campo, 
Luisa Reina, 
Riccardo Paulin, 
Alessandro 
Mezzetti. 
Roberto Polillo. 








ossier 


di D 



E stato presentato al pubblico solo 
da pochi giorni ma, negli uffici 
tecnologicamente piu evoluti, i diri¬ 
genti se ne contendono le prenota¬ 
zioni già da alcuni mesi. Il suo nome 
è Dossier, ed è un programma di ge¬ 
stione aziendale in Pascal. Lo ha 
creato per Apple II la Etnoteam di 
Milano, una società specializzata 
nell’ingegneria del software che, in 
soli cinque anni di attività e con 40 
dipendenti, ha raggiunto nel 1982 un 
fatturato di 2,3 miliardi di lire e preve¬ 
de di superare la quota dei tre miliar¬ 
di nell’arco di quest’anno. 

Semplice da usare, agile ed eco¬ 
nomico Dossier offre a imprenditori, 






ready from stock 


Special selection for factory 
manufactory, workshop 
computer shop, distributors 
OEM, customs. 

©COMPUSAVE L. 49.600 

Protegge il vostro Personal con il COMPUSAVE, un 
accessorio che si applica, molto semplicemente, 
ad incastro, sul contenitore del vostro personal e che 
assolve la funzione di impedire il surriscaldamento 
dei componenti, integrati, memorie, alimentatori, 
ecc eliminando quindi tutti i possibili guasti dovuti 
a shock termici. Consente inoltre di bypassare l'in¬ 
terruttore di acceso spento eliminando quindi la pos¬ 
sibilità che si guasti. 

©PSA -2B L. 173.000 

Alimentatore switchmg da 60 W ad alta affidabilità. 
Essendo assolutamente standard sia come tensioni 
e correnti, che come dimensioni, trova il suo im¬ 
piego ideale come ricambio o come elemento base 
per le vostre realizzazioni personali. Grazie alla ele¬ 
vata riserva di potenza è in grado di alimentare con¬ 
temporaneamente sia una CPU main board che le 
varie schede accessorie e floppy disc. 

Caratteristiche: +5V 5.5A/-5V 0.5A/ +12 V 
2A/-12V 0.5 0.5 A 

Alimentaz. 220V ca - Dimens. 90x55x250 mm 




Benvenuti ^ - 

i rivenditori. % iJC VBE elettronica 

MB vk (Mll* Bivtrtri. 38 

Al privati, vendita mB ^B^L 40131 Bologna osirt72406 
solo per contanti IH ^B^B- 
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professionisti e manager uno strumento 
insostituibile per tenere sempre sotto 
controllo tutte le voci dei bilanci preven¬ 
tivi, gli indicatori fondamentali dei pro¬ 
getti, le previsioni dei costi del persona¬ 
le, i piani di fatturato, la finanza e nume¬ 
rosi altri dati di sintesi. E, non solo: Dos¬ 
sier consente di aggiornare in modo ra¬ 
pido tali informazioni e ricalcola auto¬ 
maticamente tutti i dati correlati ai nuovi 
input. Fornisce la visualizzazione grafi¬ 
ca degli andamenti più rilevanti con cur¬ 
ve e istogrammi. Stampa un “report” su 
carta già organizzato per la fascicolatu- 
ra e completo di copertina e indice. 

“Inizialmente Dossier è stato ideato 
per risolvere i problemi operativi di am¬ 
ministrazione, di organizzazione e di 
conduzione della nostra software- 
house” spiega Roberto Polillo, socio 
della Etnoteam e titolare della cattedra 
di “Sistemi di elaborazione I” presso la 
facoltà di scienze dell’informazione 
nonché ricercatore all’istituto di ciber¬ 
netica dell’Università Statale di Milano. 

E così, per realizzare un programma 
capace di assorbire il gran numero di 
dati contenuti in voluminosi dossier car¬ 
tacei di non pratica consultazione, si è 
costituito uno staff composto dal profes¬ 
sor Polillo e da altri quattro fisici, tutti tra 
i 25 e i 30 anni. Sono: Luisa Reina 
esperta di microelaboratori, Piero 
Schiavo Campo, già astrotisico e ora 
specialista di software di base, Ales¬ 
sandro Mezzetti, che conosce alla per¬ 
fezione tutti i segreti del Pascal, e Ric¬ 
cardo Paulin, il più giovane del gruppo, 
il quale ha svolto un ruolo da protagoni¬ 
sta nella programmazione di questo 
dossier elettronico. 

Sul computer Dossier può essere 
“sfogliato” come un qualsiasi docu¬ 
mento. È protetto da una parola d’ordi¬ 
ne che ne consente la consultazione a 
diversi livelli. Inoltre, in fase di visualiz¬ 
zazione, non è alterabile da possibili 
errori operativi. Dossier è quindi un fo¬ 
glio elettronico, nato sull’impronta di Vi- 
siCalc ma, rispetto ad esso è più pratico 
e può essere usato da chiunque. Ha 
riscosso un enorme successo anche 
negli Stati Uniti e in tutta Europa, dove 
viene presentato in inglese, in francese 
e, prossimamente, anche in tedesco. 

In Italia è distribuito dalla Arnoldo 
Mondadori Editore, che ne detiene i di¬ 
ritti, ed è in lingua italiana. Costa circa 
800 mila lire e viene offerto al pubblico 
in un’elegante custodia da scrivania, 
contenente due floppy-disc e un ricco 
manuale di istruzioni. Tra pochi mesi 
Dossier sarà disponibile anche nella 
versione per Apple He. 

Claudio Gallone 
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IN COLLABORAZIONE 
CON MIXER VIAGGI 




















Programma 
SAN FRANCISCO 



27 ottobre 

MILANO/SAN FRANCISCO 
Partenza con volo Alitalia alle 
ore 13.30. Arrivo a SAN FRANCI¬ 
SCO alle ore 22.44. Trasferimen¬ 
to in albergo. Pernottamento. 

Dal 27 ottobre al 1 novembre 
SAN FRANCISCO 
Prime colazioni e pernottamenti 
in albergo. Una giornata sarà de¬ 
dicata all'escursione a Cupertino 
in autopullman privato. 

2-3 novembre 

SAN FRANCISCO/MILANO 
Prima colazione in albergo. Tra¬ 
sferimento aeroporto. Partenza 
alle ore 09.00. Cena e pernotta¬ 
mento a bordo. Arrivo alle ore 
10.05 a MILANO MALPENSA. 


Quota di partecipazione per per¬ 
sona Lire 1.770.000. 

Per i titolari di Applicarci (basta 
abbonarsi ad Applicando) 

Lire 1.740.000 

La quota comprende: • viaggio 
aereo in classe economica MILA- 
NO/SAN FRANCISCO/MILANO 

• sistemazione in albergo di la 
cat. con trattamento di pernotta¬ 
mento e prima colazione • trasfe¬ 
rimenti aeroportuali • escursione 
a Cupertino • assicurazione "In- 
terassistance" e bagaglio • la 
franchigia bagaglio • le tasse di 
soggiorno e il facchinaggio nel¬ 
l'albergo di un collo per persona 

• borsa da viaggio Mixer Viaggi. 
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Apple 

parla la Ftua lingua. 




Indubbiamente con la sua semplicità e versatilità d’uso Apple parla un linguaggio 
universale. Non per niente, nel mondo sono più di 700 mila i possessori 
di un personal computer Apple. 

1 personal Apple fanno di tutto per venire incontro alle esigenze più personali. 
Così il nuovo Apple //e, che puoi trovare in oltre trecento centri di dimostrazione 
e vendita in Italia, non solo offre più memoria e maggiore semplicità d’uso, 
ma anche una tastiera italiana. 

I nuovi Apple parlano e scrivono nella tua lingua: nel lavoro avrai un partner che 
capisce meglio i tuoi problemi e li risolve prima; nello studio e nel tempo libero 
un compagno socievole con una fantasia tutta italiana. 

Vieni a scambiare quattro chiacchiere con il nuovo Apple //e e con il più potente 
Apple///. Scoprirai che sono sorprendentemente semplici anche nel prezzo: 

Apple //e completo di video e unità per dischetti è in offerta speciale a soli 
3 milioni e mezzo e Apple /// ha un discorso ancora più interessante da farti. 

^CippkZ II Personal Computer 


Distribuzione unica per l'Italia: IRET Informatica S.pA - Via Bovio. 5 - 42100 Reggio Emilia - Tel. 0522/32643 - Tlx 530173 IRETRE4 










5 ^. Per i piccoli amici del computer, ecco un gioco divertente, 
0 ^^ ma soprattutto istruttivo: è un utile esercizio 

di ortografia e di... tastiera, adatto a tutti, dai sei anni in su. 

Applicando lo regala su dischetto a tutti gli abbonati... 
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n computer può fare cose sorpren¬ 
denti, macinando i numeri, ragg¬ 
iando con le lettere, compiendo mira- 
oli di grafica. Ed è naturale che sia 
osi. Lo si è comprato proprio per que- 
to. Ma voi riuscite a fargli fare quelle 
ose? lo non l’ho mai spuntata. Non 
ono mai riuscito a inquadrare nel miri¬ 
lo un bersaglio spaziale, e ancor oggi 
omo difficile ricordare se nella formula 
èll’acqua venga prima la O o l’H. Ram- 
lentare qual è il debito e quale il credito 
li è impossibile, e mi rifiuto sistemati- 
amente di discutere di logica boo- 
*ana. 

Ma poi ho scoperto che se prendevo 
ina semplice routine, prelevandola da 
ina rivista, o esaminando le espressio- 
li in Basic di un programma, potevo 
ostruire un programma tutto mio intor- 
10 a quella routine. E alla fine, dopo 
niile errori di sintassi, potevo far funzio- 
tare qualcosa, qualcosa che avevo fat- 
d io. Ne valeva la pena. 

Così, per anni e anni ho cercato di 
ealizzare un programma che aiutasse 
mio piccolo a imparare come si scrivo¬ 
no le parole. Era un progetto difficile; 
>er quante ricerche facessi ai tavoli di 


blackjack, di roulette e di dadi, non riu¬ 
scivo mai a mettere a punto l’algoritmo 
giusto. Quando poco tempo fa mio figlio 
si è sposato ho pensato che forse il suo 
interesse per l’apprendimento dell’orto¬ 
grafia con il computer stava diminuen¬ 
do. Il cuore del programma al quale mi 
ero dedicato si chiamava ABC Finder, 
lo scopritore dell’ABC, ma partendo dal 
presupposto che il livello di età del mio 
pubblico fosse salito, l’ho ribattezzato 
Scanner, analizzatore. Se avete dei fi¬ 
gli, anche non sposati, chissà che non si 
appassionino a questo gioco... 

Si constaterà che è facile copiare il 
programma sul computer, perché ho 
seguito certe regole cardinali: 

1. Tutti i caratteri del listato sono pre¬ 
senti sulla tastiera dell’Apple. 

2. Tutto è sistemato in buon ordine. 

3. La maggior parte delle linee consta 
di un’unica espressione. In questo mo¬ 
do il programma è più facile da seguire. 
Più tardi, se si vuole, si possono combi¬ 
nare le espressioni in una linea lunga. 
Allora il programma girerà più rapida¬ 
mente e sarà più efficiente in fatto di 
memoria. Un ottimo affare. 

4. Abbondanti osservazioni (REM, 
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che viene da remark) descrivono che 
cosa sta accadendo. 

5. Non ci sono imprecazioni, gram¬ 
matica scadente, numeri esadecimali, 
linguaggio macchina, o altre simili 
eresie. 

Il gioco è divertente, sempreché si 
riesca a farlo girare. Sullo schermo si 
forma una riga di 40 lettere prese a ca¬ 
so. Si deve cercare di formare il mag¬ 
gior numero possibile di parole, usando 
solo quelle lettere. Tutto qui? Sì, ma 
provate a vedere come ogni lettera bal- 
•Ja sullo schermo, prima di giudicare... 

Un consiglio: componete parole cor¬ 
te. Farete più punti, e probabilmente 
andrete più vicini alla grafia giusta. Per 
fare questo gioco non c’è bisogno co¬ 
munque di essere bravi in ortografia. A 
dire la verità oggigiorno non ce n’è più 
bisogno quasi per nessuna attività. 


Il programma 

Ecco il programma dello Scanner. 
Non è il caso di impressionarsi, non è 
lungo come sembra, e la maggior parte 
delle linee è corta e facile da battere. Un 
avvertimento: occhio alla linea 210. 
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La linea 100 pulisce lo schermo per¬ 
ché sia pronto per l'azione. 

Le linee 120-180 danno il meritato 
credito all'autore di questo programma. 

La linea 190 fissa il valore di una va¬ 
riabile. Ho letto da qualche parte in un 
libro che se si usa la variabile invece del 
valore effettivo il programma girerà più 
svelto. Qui l’ho usata perché si tratta del 
numero che fa funzionare il cicalino, ed 
è un numero così dannatamente lungo 
che di solito lo sbaglio. Con N ce l’ho 
giusto. 

La linea 200 è un eccellente sistema 
per fare una lunga riga tratteggiata. Si 
potrebbe dire solo L$ = “= = = (per 40 
trattini)”; ma in quest’altro modo è più 
facile e più limpido. Si può voler cambia¬ 
re il valore, e con questa tecnica è pos¬ 
sibile. L’ho usata qui perché ogni tanto 
mi piace far sfoggio della gran quantità 
di queste mie nozioni. 

La linea 210 chiede se è la prima 
volta che si gioca. Rispondete N (per 
no) se non occorre leggere le istruzioni. 
Se occorre, si risponde S e il program¬ 
ma è lieto di spiegare per filo e per se¬ 
gno in cosa consiste il gioco. 

La linea 220 stampa il titolo, molto 
lentamente. L’idea l’ho presa da un pro¬ 
gramma che mi era capitato sottomano. 
Un consiglio: quando trovate una routi¬ 
ne che vi piace, impadronitevene! 

Le linee 230-270 impostano la visua¬ 
lizzazione dell’alfabeto. La linea 230 or¬ 
dina al programma di creare 39 lettere. 
Poi la linea 240 crea un numero a caso. 
La linea 250 aggiunge 128 al numero in 
modo che possa essere scritto in me¬ 
moria al posto giusto. La linea 260 pro¬ 
duce il rumore (niente da stupirsi). La 
linea 270 protrae l’eccitazione. Si provi 


100 TEXT : HOME : CLEAR 
110 INVERSE : PRINT ■ (0 1983, 
APPLICANDO E INCIDER 
115 FOR K = 1 TO 800: NEXT K: 

HOME : NORMAL : CLEAR 
120 REM 
130 REM 

140 REM VI/XXWI/MCMLXXXII 

150 REM 

160 REM 

170 REM 

180 REM 

190 N = - 16336 
200 FOR X = 1 TO 39:L* = L$ 4 
■=■: NEXT X 

210 VTAB 5: PRINT "E' QUESTA LA 
PRIMA VOLTA CHE GIOCHI 
/ SCAWER / ? (S/N) GET A$: 
HOME : IF A$ = - S' THEN G0SUB 
820 


ad aggiungere 128 sulla linea 250: il 
programma avrà un aspetto diverso. 
Emozionante. E probabilmente non 
funzionerà. 

La linea 280 colloca il cursore alla 
base dello schermo, in posizione sicu¬ 
ra, e chiede di scegliere una lettera. 
Quindi sgombra la linea con CALL - 
868. Assegna un valore di 1 a J, per una 
ragione che al momento mi sfugge. Può 
darsi che in seguito mi venga in mente. 

La linea 290 coglie gli sbagli. Se il 
carattere scelto non è una lettera ma un 
punto il suo numero di codice ASCII 
deve essere cambiato in uno più alto; si 
usi 110. Disponendo di una tabella si 
vedrà che CHR$ (110) è una n minu¬ 
scola. Non c’è da preoccuparsi, non l’u¬ 
serò mai in quel modo. 

La linea 300 cambia il valore delle 
lettere raccolte aggiungendo loro 64. 
To’, questo trasforma nuovamente la n 
in un punto allorché diventa CHR$ 
(174). Sono proprio contento che sia 
finita. 

Adesso si fa la scansione della riga. 
Le linee 320-340 passano in rassegna 
le lettere della riga. Se viene trovata una 
lettera che corrisponde a quella scelta, 
si è fatto centro. In altri termini se S (che 
è il valore della lettera della fila) è ugua¬ 
le a B (il valore del numero scelto, al 
quale abbiamo aggiunto 64 per fargli 
parlare lo stesso linguaggio del poke/ 
peek) allora il programma andrà a linea 
360. 

La linea 350 interviene invece se non 
c’è stata alcuna corrispondenza, così il 
programma salta a piè pari a 750, dove 
ha qualche mansione di routine da svol¬ 
gere. La linea 370 è nuovamente la riga 
dei trattini. 
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La line* 380 colloca uno spazio vuoto 
nel puntdgh cui si trovava la lettera scel¬ 
ta. E trodEquel punto esatto perché la 
linea 330^n sa mantenere un segreto, 
e così saptMOT«he la lettera scelta era 
in X. Adeas™e uno spazio vuoto (in 
lingua peek/poke ASCII 160 e uno spa¬ 
zio vuoto). 

Le linee 390-450 faranno scendere la 
lettera. Di fatto non scende nulla. In Y -1 
viene stampato uno spazio vuoto. Poi in 
Y viene stampata la lettera. Questo suc¬ 
cede da 3 a 15, e il rumore (linea 440) 
ne fa una avventura densa di emozione 
nel mondo dei computer. 

Dopo tutta questa agitazione può 
darsi che si voglia sostare un momento 
a osservare come ora ci sia una riga di 
lettere che appare alla sommità dello 
schermo, e una lettera che è appena 
caduta nei pressi del fondo. Adesso che 
cosa accadrà? 

Le linee 460-500 guardano lungo la 
riga sulla quale è previsto che cadano le 
lettere, e se ce n’è una (in realtà se una 
locazione non è uno spazio) la linea 490 
ricorda quel punto esatto dando a I il 
suo valore. Al riguardo si dirà altro più 
avanti. 

Le linee 510-600 mettono in ordine le 


220 SPEED= 39: VTAB 2: KTAB 15: 
PRINT '* SOWER »*: FOR Z = 1 
70 1000: NEXT Z: SPEE0= 255 
230 FOR X = 1 TO 39 
240 R = JNT <26 * RND <J» 4 1 
250 POKE 1151 4 X,R ♦ 128 
260 P = PEEK (N) 

270 NEXT X 

280 VTAB 23: HTAB 2: CALL - 868: 
PRINT 'CHE LETTERA? => GET 
Ai: VTAB 23: KTAB 2: CALL - 
868:J = 1 

290 IF Ai = CHRi (46) THEN Ai = 
CHRi (110) 

300 B = ASC (Ai) 4 64 
310 REM SCANSIONE 
320 FOR X = 1 TO 40 
330 S = PEEK (1151 4 X): IF S = B 
THEN GOTO 360 
340 NEXT X 


350 GOTO 750 
360 REM CADUTA 

370 VTAB 16: KTAB 1: PRINT Li 
380 POKE 1151 4 X.160 
390 FOR Y = 3 T0 15 
400 VTAB Y - 1: HTAB X: PRINT 
CHRi (32) 

410 IF S = 174 THEN S = 110 
420 VTAB Y: HTAB X: PRINT CHRi 
(S - 64) 

430 FOR Z = 1 TO 20: NEXT Z 
440 P = PEEK (N) 

450 NEXT Y 

460 REM ACCHIAPPALETTERE 
470 FOR X = 1 T0 40 
480 F = PEEK (1831 4 X) 

490 IF F < > 160 THEN I = F 

500 NEXT X 

510 REM PULIZIA 

520 FOR X = 40 T0 1 STEP - 1 
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re, attraverso la base dello schermo 
stampando un CHR$ (93) - che sarà 
mai? - seguito da uno spazio, in modo 
che sembri in movimento. Ogni volta 
che lo si fa si produce un rumore (linea 
550). C?è poco da stupirsi! 

La linea 570 dà gli ultimi tocchi al 
guazzabuglio incominciato sulla linea 
530. 

La linea 580 fa più o meno la stessa 
cosa, in senso verticale, e adesso lo 
pseudo-cursore si sposta in giù da 
VTAB 16 a 19. Si sente l’emozione che 
cresce? 

Si usi la stessa tecnica (stampando 
un carattere seguito da uno spazio nel 
posto appena abbandonato) ma questa 
volta si vedono i caratteri anziché usare 
i numeri ASCII. Questo per nessuna ra¬ 
gione specifica, soltanto per cambiare 
ritmo. 

La 590 è una linea di ripulitura, di 
scopo simile a quello della linea 570. Ci 
dev’essere un modo migliore di fare le 
cose, o no? 

La linea 600 colloca con molta gran¬ 


530 POKE 1831 4 X,93: POKE 1831 4 
X 4 1,160 

540 FOR Z = 1 TO 30: NEXT Z 
550 P = PEEK (N) 

560 NEXT X 

570 POKE 1832,160 

580 FOR X = 16 TO 19: VTAB X: 

HTAB 1: PR1NT B 1 B : VTAB X - 1: 
NT AB 1 : PR1NT " ": FOR Z = 1 TO 
20: NEXT Z: NEXT X 
590 POKE 1360,160 
600 POKE 1488 4 T,I:T = T 4 1: IF 
T ) 39 THEN GOTO 760 
610 REM CHIUSURA 
620 FOR E = J T0 39 
630 C = PEEK (1151 4 E) 

640 IF C = 160 THEN 670 

650 NEXT E 

660 GOTO 280 

670 H = PEEK (T152 4 E) 


diosità nel posto giusto dello schermo le 
lettere originariamente scelte. UT + T + 
1 incrementa (parola d’alta classe usata 
nel Nevada per dire aumenta) di un po¬ 
sto in modo che la lettera successiva 
venga stampata al posto esatto e non 
faccia pasticci con quella che la prece¬ 
de. Le linee 610-650 chiudono la sfilata 
di lettere della riga in alto. Senza questa 
piccola e utile subroutine in questo pun¬ 
to le lettere alla sommità avrebbero l’a¬ 
spetto d una bocca sdentata aperta in 
un gran sorriso. 

Quanto questo paio di linee cerca di¬ 
speratamente di fare è scrutare lungo la 
fila di ABC per vedere se manca una 
delle lettere. Se manca (linea 640) il 
lavoro lo fa un altro gruppetto di linee. 
Se non trova posti dove ci siano buchi, 
ossia ASCII 160, torna semplicemente 
alla linea 280, e ricomincia la sua picco¬ 
la danza un’altra volta. Se invece ne 
trova, si mettono al lavoro in modo 
quanto mai industrioso le linee 670- 
730. A guardarlo sembra tutto un po’ 
indistinto, ma in qualche modo tutte le 
locazioni delle lettere vengono esami¬ 
nate e spostate di uno spazio verso sini¬ 
stra. Ciò scala l’intera riga di uno spa¬ 
zio, il che è in sostanza tutto quello che 
ci si può attendere, dato che finora è 
stata tolta dalla riga solo una lettera. E 
mette un punto fermo alla fine della riga. 

Si rifaccia più e più volte la routine, 
per spostare l’intera riga. Non è neces¬ 
sario partire ogni volta da 1 (ecco a cosa 
è servita la J nella linea 280!), e si può 
invece incominciare (molto ingegnosa¬ 
mente) dove si era smesso. Così la 
mossa è molto più rapida, per il caso 
che si sia impazienti di tornare al pro¬ 
gramma di conto corrente o al comples¬ 


680 POKE 1151 4 E,H 
690 POKE 1152 4 E,160 
700 POKE 1191,174 
710 J = E 
720 P = PEEK (N) 

730 GOTO 620 
740 END 

750 REM CONTATORE 
760 FOR X = 1 T0 40 
770 U = PEEK <1487 4 X) 

780 1F U = 174 THEN 0 = 0 4 1 
790 NEXT X 

800 VTAB 23: HTAB 1: CALL - 868: 

PRINT "TOTALE PAROLE = B ;0; 

810 END 

820 REM ISTRUZIONI 
830 SPEED= 100: VTAB 5: PRINT 
"COMPONI IL MAGGIOR NUMERO 
POSSIBILE DI PAROLE CON LE 
LETTERE INDICATE...UN* 
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so manuale del "Meccanico dell’Ap¬ 
ple". Si fa questa mossa fino a quando 
la riga è di nuovo completamente piena 
e poi si continua a linea 280, per la via 
della linea 620. Che daffare! 

Fortunatamente la fine del program¬ 
ma è vicina, e le linee 760-810 si limita¬ 
no a contare il numero delle parole 
create. A dir vero il programma non è 
abbastanza in gamba per contare le pa¬ 
role, e non sa nemmeno come si scriva¬ 
no giuste, ma sa contare i punti fermi. 
Così se quando si gioca non si bara 
adoperando tutti punti e niente lettere, il 
programma sa quante parole sono sta¬ 
te completate. Probabilmente. 

Il gioco termina, misericordiosamen¬ 
te, alla linea 740. Le linee 820-910 sono 
infatti le istruzioni per il gioco, che devo¬ 
no essere battute nel programma solo 
se si intende veramente giocare a 
Scanner. 

Lo Scanner dovrebbe dimostrarsi la 
base di un buon gioco interessante ed 
educativo, che può essere molto diver¬ 
tente. lo consiglio di tenere le parole 
corte e semplici, come ho già detto, se 
si vuol ottenere il punteggio più alto. 
Non si dovrebbero mai usare invece no¬ 
mi propri, nomi di medicinali non in libe¬ 
ra vendita, di divi della TV e di animali di 
specie in via di estinzione. 

Se avete idee interessanti per l’adat¬ 
tamento di questo programma a scopi 
d’affari, commerciali, militari o di gioco 
fissate la vostra idea con un fermaglio e 
una banconota da un dollaro nuova 
fiammante e speditela all’autore, pres¬ 
so una qualsiasi della maggior parte 
delle case da gioco di Las Vegas. E fate 
presto, per favore. 

Paul Raymer 


LETTERA PER VOLTA - QUMDQ UN* 
PAROLA E' FINITA, BATTI UN 
PUNTO...": PRINT : PRINT "PER 
SMETTERE DI GIOCARE BATTI 
(SPAZIO)" 

840 PRINT : PRINT "SE SCEGLI IN* 
LETTERA CHE NON HAI, IL 
GIOCO FINISCE AUTOMATICAMENTE." 
850 SPEED= 255 
860 VTAB 19: HTAB 1: PRINT 
"SCHIACCIA QUALUNQUE TASTO PER 
COMINCIARE" 

870 VTAB 22: HTAB 1: PRINT "PER 
GIOCARE SENZA RUMORI PREMI 
(SPAZIO)" 

880 VTAB 19: HTAB 32: GET A$ 

890 IF A* = CHR* (32) THEN N = 0 
900 HOME 
910 RETURN 
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bvjs»*B 5B Troppe piccole 

imprese vivono ancora alla 
giornata, senza una 
chiara idea di come andrà a finire. 
Ecco un programma che 
aiuta a calcolare il punto 
oltre il quale si comincia 

a guadagnare... 




Profitti, per favore! 


C ome può fare una piccola impresa 
a stabilire se è in guadagno o sta 
perdendo danaro? Quanto tempo oc¬ 
correrà perché le entrate compensino i 
costi? Quanti prodotti o servizi devono 
essere venduti per pareggiare il bilan¬ 
cio? A queste domande si può dare 
risposta con l’analisi del break-even 
point, o del punto di pareggio, un pro¬ 
cedimento semplice ma che per la pia¬ 
nificazione della piccola azienda può 
rivelarsi essenziale. 

La tecnica in questione studia i rap¬ 
porti fra vendite, costi fissi e costi va¬ 
riabili. In affari il punto di pareggio si 
verifica generalmente quando entrate 
e spese sono uguali: l'impresa non ri¬ 
cava un profitto né subisce una perdi¬ 
ta. L’analisi del break-even point è par¬ 
ticolarmente utile quando è applicata a 
periodi futuri, come guida di pianifica¬ 
zione, in special modo se è previsto un 
cambiamento nel modo di gestione 
dell’azienda. Per esempio può fornire 
proiezioni flessibili degli introiti e delle 
spese in condizioni presunte e con 
programmi manageriali alternativi. 

Qualche applicazione 

Decisioni su nuovi prodotti. Ogni 
nuovo prodotto ha implicazioni di co¬ 
sto, che naturalmente influiscono sul 


suo prezzo e sulla sua commerciabili¬ 
tà. In molte piccole imprese un prodot¬ 
to nuovo con volume di vendite incerto 
aumenta, oltre ai rischi, il potenziale di 
profitto della ditta. L’analisi di pareg¬ 
gio consente di fare il confronto fra 
possibili strutture di costo come mezzi 
alternativi. 

Decisioni sull’espansione. Si può 
usare l’analisi per studiare l’effetto glo¬ 
bale di un’espansione generale degli 
affari. Per esempio vengono esaminati 
i rapporti fra vendite totali in lire e costi 
totali in lire allo scopo di individuare i 
potenziali mutamenti in questi rap¬ 
porti. 

Decisioni sul margine di profitto. Si 
può usare l’analisi per determinare le 
vendite in lire occorrenti per ottenere 
un dato livello di profitto. 

Decisioni sulla pubblicità. L’analisi 
può essere usata per prevedere I risul¬ 
tati di vendita necessari perché una 
campagna pubblicitaria copra i costi. 

Decisioni di pianificazione. Il ricorso 
all’analisi del break-even point potreb¬ 
be consentire a un’impresa di sapere 
se sono rispettati i tempi per quanto 
riguarda il piano generale. Non c’è pro¬ 
babilmente alcuna impresa che abbia 
un bel flusso costante di entrate o di 
spese, ma i punti di pareggio fornisco¬ 


no un pronto riferimento, che la picco¬ 
la azienda può usare per una maggiore 
riflessione sul piano totale. 

Supponiamo, per esempio, che il 
punto di pareggio quotidiano di un ne¬ 
gozio sia calcolato in 400 mila lire per 
ciascun giorno di gestione. Diventa al¬ 
lora facilissimo, quando si fa la somma 
degli incassi della giornata, stabilire se 
la ditta ha subito una perdita, ha chiuso 
in pareggio o ha ricavato un profitto. 
Normalmente un giorno è un periodo 
troppo breve per fare cambiamenti im¬ 
mediati in un piano aziendale, ma sa¬ 
rebbe semplice estendere i calcoli a 
una settimana, due settimane o un 
mese. 

Questo strumento analitico parte da 
due presupposti. Il primo, che sembra 
sensato, è che i costi possano essere 
ragionevolmente divisi in componenti 
fisse e variabili. Per definizione i costi 
fissi sono quelli che non cambiano con 
il volume delle vendite, per esempio le 
retribuzioni del personale, le spese 
d’affitto, le spese di deprezzamento, le 
imposte immobiliari, i premi di assicu¬ 
razione e cosi via. 

Le spese variabili sono quelle che 
cambiano con il volume di vendite del¬ 
l’impresa. Almeno un tipo di variabile 
cambia direttamente e proporzionai- 


10 REM <0 1983 - COPYRIGHT BY 

APPLICANDO AND INCIDER 

20 REM ***** MAPPA DELLE 

VARIABILI ***** 

30 REM A*=1NPUT GENERICO DI 

STRINGA 

40 REN » CONTIENE IL 'PONTO DI 

PAREGGIO' (BREAK EVEN POINT) 

50 REM C0$ CONTIENE IL 'MARGINE 

DI CONTRIBUZIONE' 

60 REM C$ E' LA MATRICE CON 

DEFINIZIONI PER LA SEZIONE 
ISTRUZIONI 

70 REM F* CONTILE 1 COSTI 

FISSI 

80 REM V$ CONTIENE 1 COSTI 

VARIABILI 

90 REM DIPINTO DI PAREGGIO 

GIORNALIERO 

100 REM BE=PUNT0 DI PAREGGIO 

(AMO) 

110 REM FOC0ST1 FISSI AL 


GIORNO 

120 REM PS=VEND1TE PREVISTE 

130 REM TF=T0TALE COSTI FISSI 
140 REM TV=T0TALE COSTI 
VARIABILI 

150 REM QUESTO PR0GRAMA 

INSEGNA L' miSI DEL BREAK 
EVEN POINT (PONTO DI PAREGGIO) 
160 HOME 

170 HTAB 10: PRINT ’AMLISI DEL 
BREAK EVEN 1 

180 HTAB 20: PRINT 'DI 1 
190 HTAB 11: PRINT ’COREY SCH0U, 
PH.D.* 

200 HTAB 11: PRINT 'RONALD RUBIN, 
PH.D." 

210 VTAB 7: PRINT 'QUESTO 
PROGRAMMA ESMIM UN METODO' 

220 PRINT 'SEMPLIFICATO DI 
CALCOLO DEL PUNTO DI' 

230 PRINT 'PAREGGIO PER LA 
GESTIONE DI UN PICCOLO' 


240 PRINT 'ESERCIZIO. L' AWL1SJ 
DEL BREAK EVEN* 

250 PRINT 'POINT E' UN OTTIMO 
PUNTO DI PARTENZA' 

260 PRINT 'PER CAPIRE LA 
SITUAZIONE DELL'AZIENDA' 

270 PRINT 'E I POSSIBILI SVILUPPI 
FUTURI. FORNISCE' 

280 PRINT 'UN VALIDO STRUMENTO DI 
PIANIFICAZIONE' 

290 PRINT 'FINANZIARIA, UTILE 
ANCHE PER I NEGOZI.' 

300 VTAB 20: PRINT '(01983 - 
COPYRIGHT APPLICANDO E 
INCIDER': 60SUB 1360 
310 HOME : HTAB 18: PRINT 'HENU'* 
320 VTAB 3: HTAB 7: PRINT 

■1.DIMOSTRAZIONE DELLA TECNICA" 
330 HTAB 7: PRINT '2.CALCOLI DI 
BREAK EVEN' 

340 VTAB 24: HTAB 10: PRINT 

Segue a pag 40 
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mente con le vendite: le spese di provvi¬ 
gione. Tuttavia la maggior parte delle 
spese variabili non cambia in modo di¬ 
retto e proporzionalmente con le vendi¬ 
te. Ci sono anzi gradi di variabilità. Co¬ 
me conseguenza la maggior parte delle 
spese variabili è di fatto semi-variabile. 
In altri termini alcuni costi restano fissi 
fino a un certo volume di vendite, e poi 
fanno un salto quando quel volume vie¬ 
ne superato. Per esempio i costi d’uffi¬ 
cio o le spese di consegna possono 
rientrare in una categoria del genere. La 
chiave sta nel giudicare bene quando si 
assegnano le varie voci di costo alle 
categorie dei costi fissi e di quelli varia¬ 
bili. 

Il secondo presupposto è che tutti i 


Segue da pag 39 

■-BATTI SOLO 1 0 2- B | 

350 6ET A*: IF A$ = M* THEN 390 
360 IF Ai = , 2 B THEN 930 
37U GOTO ?10 
380 REM FINE INDICE 
390 HOME i REM COMINCIA LA 
PARTE ISTRUZIONI 

400 LET F$ = -COSTI FISSI" :V$ = 
■COSTI VARIABILI":Bt = "BREAK 
EVEN POINT*:C0$ = •MARGINE DI 
rfNTR ■ 

410 DIMC$<10,2.2) 

420 FOR Z = 1 TO 2: FOR X = 1 TO 
7: FOR Y = 1 TO 2 
430 READ CÌ<X f Y,Z) 

440 NEXT Y,X,Z 
450 IWERSE : PRINT ■VENDITE 
PREVISTE = 51000' 

460 PRINT 

470 FOR Z = 1 TO 2 

480 IWERSE 


rapporti costo-volume-profitto siano li¬ 
neari. Ma se il raddoppio del volume di 
vendite può raddoppiare l’introito, può 
anche darsi che non lo faccia, in quanto 
per ottenere l’aumento di volume può 
essere stata necessaria una riduzione 
del prezzo unitario. Tuttavia per il ri¬ 
stretto campo che circonda il punto di 
pareggio il presupposto è abbastanza 
preciso per essere utile. Ad esempio 
per esaminare l’effetto di raddoppia¬ 
mento del livello delle operazioni si do¬ 
vrebbero definire nuovi rapporti (lineari 
o non lineari). 

La tecnica di pareggio 

La formula base è: 
entrate = costi fissi + costi variabili 
La differenza fra entrata e costo va¬ 
riabile è chiamata margine di contribu¬ 
zione (MC). Esso rappresenta il contri¬ 
buto di ciascuna unità alla copertura dei 
costi fissi e perciò aH’ottenimento di un 
profitto. 

MC = entrate - costi variabili 
Se MC è espresso come percentuale 
delle entrate questa si trova fissando le 
vendite uguali al 100 per cento e trovan¬ 
do la percentuale dei costi variabili in 
relazione alle vendite. La sottrazione di 
questa cifra dà il margine di contribu¬ 
zione. 

Per esempio se le vendite previste 
sono 51.000.000 e i costi variabili sono 
30.665.000, i costi variabili rappresen¬ 
tano il 60,12 per cento del 100 per cento 
(che rappresenta le vendite). Ottenia¬ 
mo un margine di contribuzione pari al 


490 IF Z = 1 THEN PRINT F* 

500 IF Z = 2 THEN PRINT W 
510 NORMAL 

520 FOR X = 1 T0 7 

530 LET T = LEN (C$(X,1 ,Z»iTl = 
LEN (C$(X,2 f Z)) 

540 PRINT C$(X,l,Z)j TAB< 39 - TI 
♦ T2);C$(X,2,Z) 

550 NEXT X 

560 PRINT 

570 NEXT Z 

580 GOSUB 1360 
590 VTAB 20 

600 HTAB 1 

610 PRINT 1 

VENDlTE=100.00r 
620 PRINT B COSTI 

VARIABILI 3 60.12X" 

630 HTAB 8: PRINT C0*; B = 39.88'/" 

640 FLASH 

650 HTAB 8: PRINT B <30665/51000) 1 

660 NORMAL 


39,88 per cento. Il livello di pareggio è 
calcolato dividendo i costi fissi per MC. 
(Si ricordi che MC è espresso come 
percentuale delle entrate). 

punto di _ costi fissi 
pareggio ~~ MC 

Caso esemplificativo 

Consideriamo questa situazione. Il 
proprietario di un istituto di bellezza sta 
studiando un ampliamento di attività. 
Egli ha individuato i costi fissi e variabili 
come sono raffigurati nella Tabella 1. 

Il proprietario stima che le vendite po¬ 
trebbero ammontare a 51.000.000 nel¬ 
l’anno dell’espansione. Egli vliole sape¬ 
re quale sia il punto di pareggio per 
quell’anno specifico, e quanto si debba 
incassare ogni giorno per chiudere in 
pareggio. Le risposte ai suoi interrogati¬ 
vi si trovano nella sezione Dimostrazio¬ 
ne della Tecnica del programma. 

Programma 

e preparazione dei dati 

Il listato fornisce un programma inte¬ 
rattivo scritto in Applesoft Basic e col¬ 
laudato su Apple II plus e su Apple Ile. 
La logica di programma è basata sugli 
aspetti tecnici del metodo di pareggio 
già esaminato. 

Il programma è interamente a docu¬ 
mentazione automatica, e quindi si pos¬ 
sono introdurre dati secondo le esigen¬ 
ze. Una caratteristica essenziale è la 
predisposizione per l’apprendimento 


670 VTAB 1: HTAB 20: FLASH : 

PRINT *51000*: NORMAL 
480 VTAB 19: HTAB 34: FLASH : 

PRINT ■30445*: NORMAL 
490 INVERSE 

700 GOSUB 1340: VTAB 23: HTAB 1: 
PRINT "ADESSO CALCOLIAMO IL 
PUNTO DI PAREGGIO* 

710 NORMAL 
720 GOSUB 1340 
730 HOME 

740 LET T = LEN (B*):T1 = LEN 
(F*):T2 = LEN (CO*) 

750 VTAB 10 
740 PRINT W;*=*j 
770 FOR X = 1 T0 37 - T 
780 PRINT *-*; 

790 NEXT X 
800 PRINT *-* 

810 VTAB 9: HTAB (39 - T): PRINT 
F*: VTAB 11: HTAB (39 - T): 
PRINT CO* 
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dei rudimenti dell’analisi di pareggio, 
quali sono stati indicati nel caso esem¬ 
plificativo dell’istituto di bellezza. 

Una volta che il programma è stato 
battuto e memorizzato su dischetto (ma 
è, volendo, disponibile già su dischetto, 
vedi a pag. 80) non c’è che da caricarlo 
nel computer e battere RUN. Il pro¬ 
gramma viene allora eseguito e viene 
presentata la pagina del titolo, seguita 
da una breve introduzione relativa al¬ 
l’impiego dell’analisi di pareggio. Dopo 
che si è premuto lo spazio compare il 
seguente menu: 

1. DIMOSTRAZIONE DELLA TEC¬ 
NICA 

2. CALCOLI DELL’ANALISI DI PA¬ 
REGGIO 

Se si sceglie 1 e si preme il tasto di 
ritorno il monitor visualizza i costi sia 
fissi sia variabili del nostro caso esem¬ 
plificativo. Un’altra pressione sullo spa¬ 
zio mostra come viene calcolato il mar¬ 
gine di contribuzione, e premendolo an¬ 
cora una volta si vede come viene cal¬ 
colato il punto di pareggio. Una nuova 
pressione sullo spazio mostra la formu¬ 
la del punto di pareggio riportata in Fi¬ 
gura 1. 

Le istruzioni sullo schermo chiedono 
di premere un tasto qualsiasi; quando lo 
si fa compare la formula con le cifre che 
riguardano il caso esemplificativo. Le 
risposte appaiono alla base dello scher¬ 
mo. A questo punto qualsiasi pressione 
di un tasto permette di calcolare il pro¬ 
prio punto di pareggio con il proprio in¬ 
put di dati. Il display sullo schermo in¬ 
dica: 


E ADESSO LA VOSTRA 
ANALISI DI PAREGGIO 
VENDITE PREVISTE? 

COSTI FISSI TOTALI? 

COSTI VARIABILI TOTALI? 

In pratica sono richiesti i tre elementi 
fondamentali d’informazione. Introdu¬ 
cete ognuno di essi, e premete il tasto di 
ritorno. Il computer eseguirà allora la 
formula e visualizzerà la seguente ri¬ 
sposta: 

MARGINE DI CONTRIBUZIONE = 
(risposta ai dati introdotti) 

A questo punto il programma chiede 
all’utilizzatore se vuol cambiare la per¬ 
centuale del margine di contribuzione, 
oppure di battere N per No. Nel secon¬ 
do caso il programma continua a calco¬ 
lare l’output. Se l’operatore vuol cam¬ 
biare la percentuale calcolata del mar¬ 
gine di contribuzione lo schermo stam¬ 
pa quanto segue: 

IL MARGINE DI CONTRIBUZIONE 
DEVE ESSERE? ...% 

Dopo che si è premuto il tasto di ritor¬ 
no il programma calcola le cifre di pa¬ 
reggio e le visualizza alla sommità dello 
schermo. Per l’output Punto di pareg¬ 
gio quotidiano abbiamo adottato nelle 
formule contenute nelle linee 112 e 115 
il numero di 254 giorni operativi. Ma se 
l’impresa svolge nell’arco di un anno la 
sua attività per un numero di giorni su¬ 
periore occorrerà cambiare le cifre di 
quelle linee, perché siano uguali al nu¬ 
mero dei giorni in cui l’azienda opera 
effettivamente. 

Se si vuol proseguire nelle analisi di 
pareggio calcolandone altre, lo scher¬ 


mo darà a questo punto le indicazioni 
necessarie per continuare. 

Per saltare la fase del programma 
che riguarda la Dimostrazione della tec¬ 
nica si può battere 2, dal menu iniziale. 
Il programma darà immediatamente le 
indicazioni per l’input dei dati. 


Altre applicazioni 

Il concetto è utile anche per stabilire il 
punto di pareggio in termini di margine 
di profitto. Si ricordFche il criterio del 
pareggio inserito nel programma elabo¬ 
ra il volume necessario perché non ci 
sia profitto. Ma se invece si pensa (ma¬ 
lattia comune nel mondo delle imprese) 
di essere in affari per fare profitti? Dicia¬ 
mo che si desideri nel progetto un mar¬ 
gine di profitto del 10 per cento. Aggiun¬ 
giamo inoltre che il margine di contribu¬ 
zione originale del progetto era pari al 
25 per cento, ma questo vale per il pro¬ 
fitto zero. In pratica il profitto del 10 per 
cento desiderato agisce adesso come 
costo variabile. Occorre modificare in 
conformità la percentuale del margine 
di contribuzione: 25% - 10% = 15%. 
Adesso si può calcolare il punto di pa¬ 
reggio impiegando il criterio della per¬ 
centuale d’entrata: 


pareggio = 


_costi fissi_ 

margine di contribuzione 
(nuova cifra modificata) 


Questo dà il margine di profitto inte¬ 
grato nell’impresa. Nel programma ba- 
..sta sottrarre il margine di profitto richie¬ 
sto (in punti percentuali) dal margine di 


820 UTAB 1 
830 G0SUB 1360 
840 VTAB 7: HTAB 1 
850 PRINT 'CHE NEL TUO CASO E':’ 
860 VTAB 9: HTAB (39 - T): PRINT 
SPC< T)i VTAB 11: HTAB (39 - 
T2): PRINT SHU< 12) 


870 PRINT 
880 G0SUB 1360 

890 VTAB 9: HTAB (39 - T): PRINT 
8910: VTA8 11: HTAB (39 - T2): 
PRINT .3988 

900 VTAB13: PRINT 'BREAK EVEN 
P0INT (AW0) 3 22342' 

910 G0SUB 1360 
920 REM FINE DELLA PARTE 
ISTRUZIONI 

930 HOME : PRINT ' ANALISI DEL 
BREAK EVEN P0INT' 

940 REM PARTE ANALISI 
950 PRINT : INPUT "VENDITE 
PREVISTE? ';PS 


960 INPUT 'TOTALE COSTI FISSI? 
'|TF 

970 INPUT 'TOTALE COSTI 
VARIABILI? ';TV 

980 LET A4 = 100 - (TV / PS * 

100 ) 

990 LET RD = A4: G0SUB 1340.-A4 = 
RD 

1000 F0R X = 1 T0 5: PRINT : NEXT 
X 

1010 PRIMI 'MARGINE DI 
CONTRIBUZIONE 3 ';A4;'X' 

1020 PRINT 'VUOI CAMBIARE IL 
MARGINE DI" 

1030 PRINT 'CONTRIBUZIONE X ?' 

1040 VTAB 24: PRINT 'RISPONDI SI 
0 NO, PER FAVORE';: GET Al 

1050 1F Al = 'N' GOTO 1070 

1060 HOME : INPUT 'IL MARGINE DI 
CONTRIBUZIONE X SIA: ';AI: GOTO 
1070 

1070 HOME :BE 3 TF / (A4 * 


.01):RO 3 BE: GOSUB 1340:BE - 
RD 

1080 PRINT 'BREAK EVEN P01NT 
(ANN0)=';BE 

1090 LET FC = TF / 254:RD = FC: 
GOSUB 1340:FC = RD 

1100 PRINT 'COSTI FISSI AL 
GIORNO 3 ';FC 

1110 PRINT 'BREAK EVEN P0INT 
GIORNALIERO 3 '; 

1120 LET DB 3 ((TF / 254) / A4) * 
100 

1130 LET RD 3 DB: GOSUB 1340:DB = 
RD 

1140 PRINT DB 

1150 GOSUB 1360 

1160 HOME : PRINT 'VUOI 

CONTINUARE A CALCOLARE? (SI 0 
NO)*;: GET Al: IF Al 3 'S* THEN 
930 

1170 HOME 

Segue a pag 42 
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contribuzione originale visualizzato sul 
monitor. Oppure se si preferisce si può 
trattare il profitto in termini di lire, e quin¬ 
di come costo fisso. Se si decide di usa¬ 
re questo criterio si deve aggiungere la 
cifra del profitto in lire alla categoria dei 
costi fissi. 

Un’altra utile applicazione della tecni¬ 
ca di pareggio si trova nella determina¬ 
zione delle vendite in lire necessarie per 
ottenere un determinato livello di profit¬ 
to. Supponiamo che una società desi¬ 
deri un profitto fisso in lire di 150 milioni. 
In questo caso il profitto è trattato come 
costo fisso. Lo si deve aggiungere al 
costo fisso stabilito per il progetto, e si 
deve calcolare il punto di pareggio co¬ 
me si è fatto prima. La sola differenza 


Segue da pag.41 

1180 END : REM FINE DEL 
PROGRAM...SEGUONO DATI E 
SU8R0UTINE 

1190 DATA AWORTAMENT0,18OO 
1200 DATA ASSICURAZIONI,210 
1210 DATA AFFITTI,4800 
1220 DATA INTERESSI,840 

1230 DATA SERVIZI,900 

1240 DATA LAVANDERIA & 

MANUTEN2. ,360 
1250 DATA TOTALE COSTI 

FISSI 8910 

12(50 DATA COSTO DELLE MERCI 

VENDUTE,2755 

1270 DATA RETRIBUZIONI,20005 

1280 DATA 

APPROWJ GIONAMENT) ,4800 
1290 DATA IMPOSTE 

RETRIBUZIONI,2015 
1300 DATA SERVIZI,610 

1310 DATA LAVANDERIA E 


sarebbe raggiunta della cifra in lire alla 
parte dell’input dei dati che riguarda i 
costi fissi. 

Una terza applicazione è l’individua¬ 
zione dell’effetto di budget pubblicitario. 
La pubblicità è essenzialmente un co¬ 
sto fisso. Qualsiasi costo fisso che vie¬ 
ne aggiunto alza il punto di pareggio 
dell’impresa, e questo richiede altre en¬ 
trate (o minori costi variabili) per soppe¬ 
rire al costo. Le entrate per i costi fissi 
vengono dal margine di contribuzione. 
Per esempio se la percentuale del MC è 
del 25%, sono necessarie 4.000 lire ag¬ 
giuntive di entrata per coprire ogni 
1.000 lire in più di costo fisso. Così se 
l’impresa sta studiando l’eventualità di 
spendere 2.500.000 per un avviso pub¬ 
blicitario, avrà bisogno di 4 x 2.500.000, 
ossia 10.000.000 di vendite in più solo 
per coprire il costo dell’avviso. Questo 
criterio fornisce alla piccola impresa 
una regola per giudicare i risultati della 
pubblicità: se dopo un adeguato perio¬ 
do di tempo le vendite in più non giustifi¬ 
cano il costo dell’avviso, la campagna 
può essere abbandonata. 

Un ultimo interessante impiego di 
questa tecnica si trova nel settore della 
praticabilità dell’espansione. Qui l’ana¬ 
lisi suggerisce se sia o no il caso di 
esplorare più attentamente l’idea di 
espandere le attività. Studiando l’even¬ 
tualità di un ampliamento, si dovrebbe¬ 
ro valutare gli aumenti di costo che ne 
derivano. Tenuto conto di questi costi, 
l’analisi dirà quale sia l’ammontare delle 
vendite necessario per il pareggio. 
Corey D. Schou e Ronald S. Rubin 


MANUT .NEGOZIO, 610 
1320 DATA TOTALE COSTI 
VARIABILI,30665 
1330 REM ROUTINE DI 

ARROTONDAMENTO 

1340 LET RD = (( INT <RD * 100 ♦ 
.5)) / 100): RETURN 
1350 REM PAUSA DI LETTURA 

SCHERMO 

1360 VTAB 24: PRINT 1 -BATTI 
QUALSIASI TASTO PER 
CONTINUARE- 1 ;: 6ET A*: RETURN 


Ma col VisiCalc... 

Supponiamo di voler produrre un 
certo prodotto. Avremo delle spese 
fisse (macchinari, investimento per 
ricerca e messa a punto, affitti, pub¬ 
blicità, ecc.), e delle spese variabili 
in funzione di quanti pezzi verranno 
poi effettivamente prodotti e messi 
sul mercato (materie prime, packa¬ 
ging, manodopera, ecc.). Dovremo 
poi decidere che sconto praticare al 
rivenditore ma anche a che prezzo al 
pubblico mettere in vendita il nostro 
prodotto... Ecco un modello, facil¬ 
mente impostabile su VisiCalc, per 
ottimizzare i calcoli e scoprire quan¬ 
to si guadagnerà o quanto si perderà 
secondo i livelli di vendite raggiunti. 
Qui a destra riproduciamo un esem¬ 
pio di quel che si vede sullo schermo 
(ed è facilmente stampabile su car¬ 
ta). In pratica per ottimizzare i calco¬ 
li, basterà portare il cursore di Visi- 
Cale in corrispondenza delle caselle 
che qui risultano evidenziate in gial¬ 
lo, e sostituire i dati. Tutto il resto 
della tabella si aggiornerà automati¬ 
camente. Nel nostro esempio vedia¬ 
mo nella colonna Profitti e perdite 
che il break-even point, il punto cioè 
oltre il quale si guadagna, è a 2.500 
pezzi venduti. Sotto è riportato ciò 
che occorre introdurre in ciascuna 
casella del VisiCalc per costruire 
questo modello. 


Analisi del Break-Even 
Al Arisiisi del Break-Even 
CI 'Jnita' ver.. 

01 Profitti o perdite 
A2 None prodotto 
C2 B13 

02 C2*B3*( .01*(1Q0-B19)ME:9HB16*C2}) 
A3 Prezzo al pubblico 
EG 3 

Co C2+B19 

D3 C3*EG*(.01*(100-B19))-(E^+(Bl6*C3)) 
C4 C3+B18 

M C4*E3*( .01*(100-E:l?))-(B9+(B16*C4) ) 
A5 Costi fissi 
B5 (Totali) 

C5 C4+618* 

D5 C5*B3*( ♦ 01*(1Q0-B19))-(B9+(616*C5)) 
Aó Ricerca 
B6 0 

Có C5+B18 

Dó DS*EG*(.01K100-E:19))-(E^(B16XCÓ)) 
A7 Marketing 
B7 0 

C7 C6+B18 

07 C7*E3*(♦01*(100-B19))-(B9+(B16»C7)) 
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1 A || 

8 II 

C II 

D 1 

1| Analisi del Break-Even 


Unita' 

Profitti 

21 


vendute 

o perdite 

3|None prodotto 


100 

-15072500 

1|Prezzo al pubblico 

18000 

200 

-13115000 

51 


300 

-11217500 

6|Costi fissi 

(Totali) 

100 

-39290000 

7| Ricerca 

12000000 

500 

-37362500 

8| Marketing 

28000000 

600 

-35135000 

?| Altri 

7000000 

700 

-33507500 

10IT0TALE costi fissi 

17000000 

800 

-31580000 

111 


900 

-29652500 

121Costi variabili (Per Unita') 

1000 

-27725000 

13| Manodopera 

2800 

1100 

-25797500 

H| Materie prine 

1200 

1200 

-23870000 

15| Packaging 

550 

1300 

-21912500 

lèi Altro 

175 

1100 

-20015000 

17IT0TALE costi variabili 

1725 

1500 

-18087500 

181 


1600 

-16160000 

191Incremento 

100 

1700 

-11232500 

20|Sconto (Z) 

50 

1800 

-12305000 

211 


1900 

-10377500 

221 


2000 

-8150000 

23| 


2100 

-6522500 

211 


2200 

-1595000 

251 


2300 

-2667500 

261 


2100 

-710000 

271 


2500 

1187500 

A8 Altri 

OH CH*B3*(.fll*(10O-819))- 

-(B9+(B16iCH)) 

88 0 

A15 Altro 



C6 C7+B18 

Biw 0 



08 C8*B3*(♦01*(100-819))-(B?+(B16*C3)) 

C15 CH+818 



A9 TOTALE costi fissi 

D15 C15*B3*(.01K1O0-B19))- 

-(89+<816*C15)> 

E* 0SUM<E:ó...B8) 

Alò TOTALE costi variabili 


C9 C8+B18 

B1 6 PSUMB12,., 

►815) 


0* C9*E:3»(.01K100-E!l9))-(B < ?+(B16iC9)) 

Clè C15+B18 



CIO C9+B18 

Dii ClòiE3K.Dl*< 100-619))- 

-<B9+(816*C16)) 

DIO C10*E3-t( .01*1100-B19))-(B9+(Bló*C10)) 

C17 C16+B1E 



All Costi variabili 

D17 C17*E'3*( .01*(10O-B19))- 

-<B9+(B16*C17» 

811 (Per Unita 7 ) 

«18 Incremento 



Cll C10+818 

818 ICO 



DII C11*B3*(.01*(100-819))-(B9+(81ó*Cll)) 

C18 C17+B13 



A12 Manodopera 

Dl8 Cl8*B3*(# Oli(100-819))- 

<89*<B16*C18)) 

812 0 

A19 Sconto (Z> 



C12 Cll+818 

819 50 



D12 C12*B3*(.01K100-819))-(B9+(816x012)) 

219 C18+818 



A13 Materie prine 

D19 C19*B3*«.Oli«lO0-B19))- 

(B9+(B16 


813 0 

C13 C12+B18 

013 C13*83*(♦Ql*(100-819)MB9+(B16*C13)) 
AH r’sck.sqiri^ 

BH 0 

CH C13+B18 


AÉopplG 

computar 



RZI€ND€ 

PROFCSSIONISTI 

PROGCTTISTI 

scuote 

HOM€ C HOBBV 

e... 

Più linguaggi di program¬ 
mazione (Pascal, Basic e- 
steso Applesoft, Integer 
basic, Monitor e Assem¬ 
bler) 

- Memoria AAM fino a 64 
Kbytes 

- Grafici a colori ad alta 
risoluzione 

- Aoppy-Disks e due si¬ 
stemi operativi su disco, 
come nei grondi sistemi 

- Tovoletto grafico inte¬ 
rattivo 

- Interfacce intelligenti di 
tipo parallelo, seriole e 
per comunicazioni 

Distribuzione per l'Italia 

IRET 

informatica 

fimi 

F.B.M. Via Flaminia, 395 
Roma - tei. 06 399279 / 3960152 

sala di 

esposizione permanente 
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\osvt^ Un rintocco solo all’una, 

0 '—^dodici alle 12. E una sveglia. 

Ma non è difficile aggiungere 
altri segnali d’allarme, o 

cambiare il carillon dei rintocchi... 

Vecchie, 
care lancette 


Q uesto programma Applesoft simula 
un orologio elettrico con lancette 
delle ore, dei minuti e dei secondi. Ha 
una sola sveglia, ma si può aggiungere 
molto facilmente un secondo segnale 
acustico. E dispone di rintocchi, tanti 
quante sono le ore da battere, disattiva¬ 
bili a richiesta. Per spiegare come fun¬ 
ziona il programma sarà necessario at¬ 
tribuire a certe parti dell’orologio nomi 


capaci di resuscitare eventuali odi sopiti 
per la geometria. Prima di tutto il qua¬ 
drante dell’orologio non è più un qua¬ 
drante e per noi diventa un circolo. Le 
lancette spariscono per far posto ad an¬ 
goli che cominciano alle 3 e di lì ruotano 
in senso antiorario. Il forellino al centro 
dell’orologio, dove sono imperniate le 
lancette, diventa il centro del circolo. 

Adesso che l’orologio è distrutto si 


può cominciare a spiegare il program¬ 
ma. Anzitutto c’è una lunghezza per il 
lato terminale di ciascun angolo. È que¬ 
sto il solo lato dell’angolo visibile come 
parte dell’orologio. Il programma trova il 
seno e il coseno dell’angolo e poi lo 
moltiplica per la lunghezza. Queste so¬ 
no ora le coordinate del punto nel quale 
termina l’angolo (lancetta). Poi il proce¬ 
dimento consiste semplicemente nel 


IO REM APPLE HI-RES CLOCK 

20 REM COPYRIGHT (C) 1983 BY 

APPLICANDO 

30 REM AND MICRO-SPARC JNC, 
LINCOLN, MA 01773 
40 DATA 

173,48,192,136,208,5,20<S, 13,3,24 
0,9,202,208,245,174,12,3,76,14,3 

iM 

50 FOft 7T = 782 70 802: READ PO 
60 POKE 77,PO 

70 NEX7 77 

80 HGR : HOME : HC0L0R= 3 
90 C = 55 
100 I = 140:H = 80 
110 FOR A = 5 70 154: HPL07 20,A 
70 259,A: NEXT 

120 HPL07 0,0 70 279,0 70 279,159 
70 0,159 70 0,0: HC0L0R= 0 
130 FOR A = 15 70 145: HP107 73,A 
70 206,A: NEXT 
HO KCOL0R= 3 

150 FOR R = 450 70 90 S7EP - 6 
160 A = 1 4 C0S (R / 180 * 

3.1415) * C:B = H - SIN (R / 

180 * 3.1415) * C 
170 HPL07 A,B 

180 1F R / 30 = 1W7 (R / 30) 

7HEN A = I + C0S (R / 180 * 
3.1415) * <C - 4): HPL07 70 
A,B 

190 NEX7 R 


195 REM APPLICANDO 
200 HPL07 134,17 70 136,17 70 
136,23: HPL07 134,23 70 138,23: 
HPL07 142,17 70 146,17 70 
146,20 70 142,20 70 142,23 70 
146,23 

210 HPL07 142,137 70 138,13? 70 
138,143 70 142,143 70 142,140 
70 138,140 

220 HPL07 78,83 70 82,83 70 82,77 
70 78,77 70 78,80 70 81,80 
230 HPL07 197,77 70 201,77 70 
201,83 70 197,83: HPL07 198,80 
70 200,80 

240 HC0L0R= 0: HPL07 212,130 70 

215.130 70 215,135 70 212,135 
70 212,132 70 215,132 

250 HPL07 217,130 70 220,130 70 

220.135 70 217,135 70 217,138 
70 217,130 

260 HPL07 222,138 70 222,130 70 

225.130 70 225,135 70 222,135 
270 HPL07 227,128 70 227,135 
280 HPL07 229,127 70 229,128: 

HPL07 229,130 70 229,135 
290 HPL07 234,130 70 231,130 70 

231.135 70 234,135 

300 HPL07 236,130 70 239,130 70 

239.135 70 236,135 70 236,132 
70 239,132 

310 HPL07 241,135 70 241,130 70 

243.130 70 244,131 70 244,135 


320 HP! 07 249,128 70 249,135 70 

246.135 70 246,130 70 249,130 
330 HPL07 251,130 70 254,130 70 

254.135 70 251,135 70 251,130 
340 HC0L0R= 3 

350 VTAB 21 : INPU7 'VUOI UN 
ALLARME? (S/N)’;M$: 1F LEF7Ì 
<#»,» = ’S’ THEN 370 
360 A = 0: G070 400 
370 PR1N7 ’A CHE ORA DEVE 
SUONARE?’: INPUT 
"ORE,MINUTI :’;A,8: IF A ) 12 OR 
A < 1 OR B < 0 OR 8 > 59 THEN 
370 

380 HOME : VTAB 21 
390 A = 1NT (A):B = 1NT <B):C = 
JN7 (C) 

400 PR1NT ’CHE ORE SONO ADESSO?’: 
INPUT ’ORE,MINUTI:’;D,E: IF D < 
1 OR D ) 12 OR E < 0 OR E ) 59 
THEN 400 

410 D = INI (D):E = JNT <E) 

420 HOME 

430 U = 450 - <D * 30):M = 450 - 
(E * 6) 

440 YY = U 
450 VTAB 21 

460 INPUT "VUOI 1 RINTOCCHI A 
OGNI ORA? (S/N)’}X$s IF LEFT$ 
(»,)) = ’S’ THEN CH = 1 
470 HOME 

480 IF A = 0 THEN 550 


I 
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tracciare il segmento fra ir centro del 
circolo e questo punto. Ecco fatta una 
lancetta! Le altre lancette vengono di¬ 
segnate in modo analogo. 

Tutto bene, ma non si era detto che 
l'angolo comincia alle 3 e ruota in senso 
antiorario? È lecito chiedersi come pos¬ 
sa funzionare, e si dovrà quindi incre¬ 


mentare l'angolo in senso negativo, e 
invece di farlo iniziare a 0 gradi, farlo 
partire a 90. Ma dato che stiamo ruotan¬ 
do nel senso negativo, lo avviamo a 450 
e lo facciamo scendere a 90. Chiarissi¬ 
mo, no? 

Il programma è in Applesoft, quindi 
basta batterlo per farlo girare. A dir il 


vero il programma non impiega molte 
tecniche sfavillanti, ma la routine di mu¬ 
sic poke fa risparmiare un po' del tempo 
che occorrerebbe per scrivere separa¬ 
tamente tutti i poke. Chi volesse può 
divertirsi a modificare il suono dei rin¬ 
tocchi della sveglia, o ottenere sveglie 
multiple, a migliorare la precisione. 


Batte il tempo così 

640-700 

710 

Lancetta dei secondi e annessi 

Loop principale del tempo, fa una 

Ecco le funzioni svolte dalle linee del programma, elenca¬ 


pausa di un secondo 

te per facilitare eventuali modifiche. 

720 

Cancella lancette dei secondi, disegna 

Linea 

Funzione 


di nuovo le altre 

40-70 

Routine musicale 

730 

Torna indietro; un altro secondo 

90 

Raggio del quadrante 

740-760 

Un nuovo minuto! 

100 

Centro del quadrante 

750 

Cancellare questa linea per eliminare 

80, 110-130 

Imposta l'immagine ad alta risoluzione 


il “clic ” a ogni minuto 

140-190 

Disegna il quadrante 

770 

Controllo del tempo dei rintocchi 

200-330 

Disegna numeri e scritte sul quadrante 

780 

Controllo della sveglia 

350-390 

Imposta la sveglia 

800-900 

Routine della sveglia 

400-420 

Imposta il tempo 

800 

Imposta il flag, agisce come gosub 

430-440 

Converte il tempo in gradi 

840-870 

Cambiare qui per cambiare il tempo di 

450-470 

Imposta i rintocchi 


ripristino dopo la sveglia 

480-540 

Stampa l’ora della sveglia 

910-940 

Assicura che non ci sia overflow di 


e la converte in gradi 


minuti 

560-580 

Imposta la lancetta dei minuti 

950-1020 

1 rintocchi 

590-630 

Imposta la lancetta delle ore 

950 

Imposta il flag, agisce come gosub 


490 B* = STR$ <B) 

500 1F B < 10 7HEN B$ = *0' * B* 
510 VTA8 21: IWERSE : PR1NT ’i' 
ALLARME SUONERÀ' ALLE , A*: , B$" 
520 N0RMAL 

530 A = 450 - (A * 30):B = 450 - 
(B * 4) 

540 1F A = 90 7HEN A = 450 
550 REM 

540 MA = 1 * C0S (M / 180 * 

3.1415) * 47:MB = H - SIN (M / 
180 * 3.1415) « 47 
570 MA = 1NT (MA ♦ .5):MB = INT 
(MB ♦ .5) 

580 HPL0T 1,H T0 MA,MB 

590 U = YY - ( INT ((450 - M) / 4) 

/ 2) 

400 U = INT (U 4 .5) 

410 UA = I 4 C0S <U / 180 * 

3.1415) * 38:UB = H - SJN (LI / 
180 * 3.1415) * 38 
420 UA = INT (UA 4 ,5):UB = INT 
(UB 4 .5) 

430 HPL0T I,H 70 UA,UB 
440 JF TE = 1 THEN TE = 0: GOTO 
810 

450 IF TE = 2 THEN TE = 0: GOTO 
940 

440 S = 450 

470 SX = I 4 C0S (S / 180 * 

3.1415) * 20:SY = H - SIN (S / 
180 * 3.1415) * 20 


480 SX = INT (SX 4 ,5):SY = INT 
(SY 4 .5) 

490 HPL07 J,H 70 SX,SY 

700 IF R = 1 THEN S = S - (EX * 

4):R = 0:EX = 0 
710 F0R EE = 1 TO 870: NEXT 
720 HC0L0R= 0: HPLOT I,H TO 
SX,SY: HC0L0R= 3: HPLOT 1,H T0 
MA,MB: HPLOT ),H TO UA,UB:S = S 
- 4: IF S < =90 THEN 740 
730 GOTO 470 

740 HC0L0R= 0: HPLOT I,H T0 
UA,UB: HPLOT J,H TO MA,MB: 
HC0L0R= 3 

750 PP = F'EEK ( - 14334) 4 PEEK 
( - 14334) - PEEK < - 14334) 
740 M = M - 4: IF M = 90 THEN M = 
450:YY = YY - 30:U = YY: IF YY 
< = 90 THEN YY = YY 4 340:U = 
YY 

770 IF OH = 1 ANO M = 450 THEN 
G0SUB 950 

780 JF M = B AND YY = (A) THEN 
800 

790 GOTO 550 
800 TE = 1 : GOTO 550 
810 POKE - 14348,0 
820 R = 1 

830 FOR II = 1 TO 25: POKE 
780,130: POKE 781,150: CALL 
782: NEXT 
840 EX = EX 4 10 


850 IF PEEK ( - 14384) > 128 
THEN 910 

840 FOR UU = 1 T0 10: FOR II = 1 
T0 20:P = PEEK ( - 14334) 4 
PEEK ( - 14334) 4 PEEK < - 
14334) - PEEK ( - 14334) - 
PEEK ( - 14334): NEXT 1I,UU 
870 EX = EX 4 7 

880 IF PEEK ( - 14384) ) 128 
THEN 910 

890 IF EX > = 240 THEN 910 
900 GOTO 830 

910 HC0L0R= 0: HPLOT 1,H TO 
MA,MB: HPLOT I,H T0 UA,U8: 
unii n&- ■’i 

920 IF EX > 59 THEN EX = EX - 
40:M = M - 4: IF M < =90 THEN 
M = 450:YY = YY - 30:U = YY: IF 
YY < =90 THEN YY = 450:U = YY 
930 IF EX > 59 THEN 920 
940 GOTO 550 
950 TE = 2: GOTO 550 
940 JF (450 - U) / 30 < 1 THEN 
FOR GG = 1 T0 12: GOTO 980 
970 FOR GG = 1 T0 (450 - U) / 30 
980 FOR 0 = 50 T0 100 STEP 10 
1000 POKE 780,0: POKE 781,140: 
CALL 782: NEXT : FOR WA = 1 TO 
50: NEXT : NEXT 

1010 EX = (GG - 1) * 2.75:R = 1 
1020 RETURN 

Disponibile su dischetto ( pag. 80 ) 
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g \och\ Un castello abbandonato? Di notte vi si aggirano delle 

ombre, si accendono delle luci. Tu sei il guardiano 
e hai 25 colpi da sparare contro gli intrusi... 



fuoco! 


L ’antica casa abbandonata ha dieci 
finestre, tutte buie. Lì vicino c’è un 
vecchio albero morto. AH’improvviso 
una delle finestre si illumina. Prendi la 
mira e spari. Bang! Beccato! 

Questa è la scena del gioco di tiro a 
bersaglio. Si punta il fucile con le paddle 
(ma è meglio, molto meglio, usare il joy¬ 
stick) e si attende che si illumini una 
finestra (o un bersaglio bonus). Prima 
che si spenga bisogna mirare e far fuo¬ 
co con il pulsante. Il gioco gira su 16K e 
impiega la grafica colore a bassa risolu¬ 
zione, il suono, e un abile segnapunti, 
che ricorda il punteggio massimo rag¬ 
giunto in più giocate (record del giorno). 


Pronti, puntare, 












Come si gioca 

Giocare è molto semplice. Dopo il ti¬ 
tolo (e le istruzioni facoltative) viene di¬ 
segnata l'immagine di una casa (sì, è 
una casa: qui nell’illustrazione abbiamo 
un po’ esagerato...) e di un albero. Un 
puntino bianco indica dove è puntato il 
fucile. La posizione è determinata dalle 
paddle 0 e 1 ; PDL(O) controlla la posi¬ 
zione X e PDL(1 ) controlla la posizione 
Y. A caso si illuminerà una finestra (op¬ 
pure uno dei due bersagli bonus). Si ha 
allora un tempo limitato per mirare e 
sparare (per i bersagli bonus è conces¬ 
so un tempo più breve. No, non diremo 
dove sono). Si fa fuoco premendo il pul¬ 
sante 0 o il pulsante 1, sulle paddle. Se 
si fa centro si sentirà un "aaargh” e 
verranno assegnati 50 punti (o 200-250 
per un bersaglio bonus). In caso contra¬ 
rio il bersaglio sparirà. Dopo la compar¬ 
sa di 25 bersagli (non dopo che si è fatto 
centro 25 volte) o dopo 25 tiri il gioco 
termina e il punteggio massimo viene 
eventualmente aggiornato. 

Il programma 

Il loop del programma va da linea 
10110 a linea 10300. Il programma per¬ 
corre questo ciclo 25 volte (per 25 obiet¬ 
tivi) o meno se le munizioni vengono 
esaurite prima. Attende dapprima un 
periodo di tempo casuale (nelle linee da 
10130 a 10150), sceglie un bersaglio a 
caso e lo colloca sullo schermo. Poi il 


programma va in loop e durante questo 
tempo l’utilizzatore può sparare all’o¬ 
biettivo. Se non lo centra il programma 
cancella l’obiettivo. Nel riquadrato c’è 
una spiegazione dettagliata della fun¬ 
zione svolta dalle varie linee. 

Come personalizzarlo 

Numero dei bersagli concessi. Ba¬ 
sta cambiare la linea 10110; FOR VI = 
1 to 25, sostituendo a 25 qualsiasi nu¬ 
mero si desideri. Inoltre (molto impor¬ 
tante) sostituire con lo stesso numero il 
25 nella linea 6000. 

Numero dei tiri concessi. Cambiare 
la linea 10070, AM = quanti tiri sono 
concessi. 

Periodo di attesa fra la comparsa 
dei bersagli. Cambiare la linea 10130, 
WT = il periodo di attesa. Più alto è WT 
più lunga è l’attesa. 

Durata della presenza del bersa¬ 


glio sullo schermo. Cambiare la linea 
10180, WT = tempo. Peri bersagli bo¬ 
nus (WT = 1 o 2) ho dato minor tempo. 
Questo può essere cambiato. 

Valore dei bersagli. VA è il valore di 
uno specifico bersaglio. Le linee 10166 
e 10167 determinano il valore dei due 
bersagli bonus; la linea 10168 determi¬ 
na il valore delle finestre. 

Suono. Ci sono tre routine sonore 
scritte in memoria all’inizio del gioco. 
Esse sono rappresentate dalle variabili 
GUN (fucile), PIP, e AAARGH ogni vol¬ 
ta che il programma accede a una di 
esse. Per cambiare la durata di PIP 
cambiare il primo 48 nella linea 63030 
con un numero compreso fra 0 e 255. 
Per cambiare l’altezza del suono di PIP 
sostituire il 16 nella linea 63030 con un 
numero compreso fra 0 e 255. Per cam¬ 
biare il GUN sostituire il secondo 32 
della linea 63020 con un numero com¬ 
preso fra 0 e 255. 
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Per cambiare l’altezza del suono del- 
l’AAARGH cambiare il 56. Per cambiare 
la durata cambiare il 21. 

Il punteggio record 

Il trucco consiste nello scrivere il pun¬ 
teggio massimo in memoria dove non 


10 REM *************** 
************<* 


11 

REM 

** 

PRONTI, PUNTARE, 


FUOCO 

H 


12 

REM 

H 

DI ANDREU BERNAN 


i* 



13 

REM 

ft« 

COPYRIGHT <0 1983 


*« 



14 

REM 

I* 

BY APPLICANDO 


** 



15 

REM 

«« 

AND MICR0-SPARC, 


INC. 

1 * 


16 

REM 

«* 

LINCOLN, HA. 01773 


t* 



20 

REM 

a#**##*#*#**#*# 


************** 

30 DIN IA<12),JA<12): REM D1MENS. 
VARIABILI 

35 IF PEEK (2046) < > 123 OR 
PEEK (2047) ( >213 THEN POKE 
2046,123: POKE 2047,213: POKE 
2044,0: POKE 2045,0: REM 
IMPOSTA FLA6 PER PONTEGGIO 
MASSIMO 

40 GOTO 10000: REM CONTROLLER 

1999 REM STAMPA PUNTEGGIO FIMLE 
E CONTROLLO EVENTUALE NUOVO 
RECORD 

2000 VTAB 21: HTAB 8:rt1 = SC: 
GOSUB 61000 

2005 PRINT 

2010 IF SC ( = HS THEN RETURN 
2020 HS = SC: HTAB 24:NN = HS: 
FLASH : GOSUB 61000: NORWL : 
HTAB 1 

2030 POKE 2045,HS / 256: POKE 
2044,HS - PEEK (2045) * 256: 
REM SCRIVE IN MEMORIA IL RECORD 

2999 REM STMPA IL PUNTEGGIO 
CORRENTE 

3000 VTAB 21: HTAB 8:N1 = SC: 
GOSUB 61000: RETURN 

3999 END 

4000 REM LO CANCELLA 

4010 IF W7 ( 3 THEN 4100: REM 
SPECIALE 

4020 I = IA(W7):J = JA(W7) 

4030 C0L0R= 8: GOSUB 7100 
4040 GOTO 4200 

4100 IF U7 = 2 THEN 4150: REM 2 
SEPERATI 
4110 C0L0R= 0 

4120 HL1N 19,21 AT 3: PLOT 20,2 


verrà azzerato se il programma viene 
fatto ripartire di nuovo. Lo si fa nella 
linea 2030. Il valore MODULO 256 è 
messo in 2044, mentre il valore /256 è 
messo in 2045. 

Alla linea 10070 viene ritrovato il pun¬ 
teggio massimo. In questo modo si può 
fare quasi di tutto (tranne che spegnere 

4130 GOTO 4200 
4150 C0L0R= 0 

4160 HLIN 3,5 AT 23: PLOT 4,24: 
PLOT 3,25: PLOT 5,25: REM 3X3 
FRA GLI ALBERI 
4170 GOTO 4200 

4200 IF CO = 1 THEN CO = SCRNT 

XO, Y0): REM IMPEDISCE CHE TORNI 
AL VALORE 

4210 IF NP = 0 THEN CALL P1P 
4220 REM NON OCCORRONO 
SPIEGAZIONI 
4230 RETURN 

4999 END 

5000 REM DISEGNA IL BERSAGLIO 
5010 IF U7 < 3 THEN 5100: REM 

SPECIALE 

5020 I = IA(U7):J = JA(W7) 

5030 C0L0R= 1: GOSUB 7100 
5040 GOTO 5200 

5100 IF U7 = 2 THEN 5150: REM 2 
SEPERATI 
5110 C0L0R= 1 

5120 HLIN 19,21 AT 3: PLOT 20,2 
5130 GOTO 5200 
5150 C0L0R= 1 

5160 HLIN 3,5 AT 23: PLOT 4,24: 
PLOT 3,25: PLOT 5,25: REM 3X3 
FRA GLI ALBERI 
5170 GOTO 5200 

5200 IF SCRN( X0,Y0) = 1 THEN CO 
= 1 

5210 CALL PIP: RETURN 
5220 REM L' ISTRUZIONE 

PRECEDENTE IMPEDISCE IL RITORNO 
AL MARRONE 

5999 REM PUNTAMENTO E SPARO 

6000 IF AltIO = 0 THEN POP :X8 = 
UTT: NEXT X8:V1 = 25: NEXT VI: 
GOSUB 4000: GOTO 10330 

6003 SH = 0: REM —CLEAR SEGNO DI 
COLPITO 

6005 REM PRIMA POSIZIONE? 

6010 IF T6 = 1 THEN 6100: REM DA 
QUI SIAMO GIÀ' PASSATI 
6020 T6 = 1 

6030 XP = INT ( PDL (0) * 39 / 

255):YP = INT < PDL (1) * 39 / 
255) 

6040 XO = XP:Y0 = YP:C0 = SCRN( 

XP, YP): C0L0R= 15: PLOT XP,YP: 
GOTO 6200 

6100 XP = INT ( PDL (0) * 39 / 


il computer) e il punteggio massimo sa¬ 
rà conservato. Si può perfino far girare 
un altro programma e poi girare nuova¬ 
mente questo senza distruggere il pun¬ 
teggio massimo. 

Occorre notare però che quando si fa 
girare per la prima volta il programma ci 
sono di solito dati indesiderati negli indi- 

255):YP = INT ( PDL (1) * 39 / 
255) 

6110 IF XO = XP AND YO = YP THEN 
6130: REM NESSUN CAMBIAMENTO 
6120 C0L0R= CO: PLOT X0,Y0:X0 = 
XP:Y0 = YP:C0 = SCRN( XP,YP) 

6130 C0L0R= 15: PLOT XP,YP 
6200 REM COLPITO? 

6210 IF PEEK ( - 16287) ) 128 OR 
PEEK ( - 16286) > 128 THBT 
6300: REM SI! 

6220 RETURN 

6300 REM SI, COLPITO! 

6305 VTAB 24: CALL - 868 
6310 CALL GUN:Aftl0 = AMMO - 1 
6315 IF CO = 4 OR CO = 13 THEN 
VTAB 24: INVERSE : CALL - 868: 
HTAB 1: PRINT "PERCHE' SPARI 
CONTRO LA PORTA?";: HTAB 1: 

N0RMAL : VTAB 21 
6320 IF CO = 1 THEN SH = 1 
6330 VTAB 21: HTAB 26: IF Afflo ( 

10 THEN PRINT ' INVERSE : 

IF AM10 = 0 THEN FLASH 
6340 PRINT AfflO: NORMAL 
6350 RETURN 

6999 END 

7000 REM -DISEGNA L' AREA 
7010 GR : C0L0R= 10 

7020 FOR X = 10 T0 30: VL1N 5,35 
AT X: NEXT 
7030 CQLQR= 8 
7040 FOR U0 = 3 T0 12:1 = 

1A(W0):J = JA(W0): GOSUB 7100: 
NEXT U0 

7050 GOTO 7110: REM SSALTA LA 
SUBR0UTINE 

7099 GOTO 7110 

7100 FOR Z5 = 1 TO I ♦ 2: VL1N 
J,J ♦ 2 AT 25: NEXT 25: RETURN 

7110- C0LOR= 13: PLOT 20,27: HLIN 
19,21 AT 28: FOR ZI = 29 TO 35: 
HLIN 18,22 AT ZI: NEXT ZI 
7120 C0LOR= 4: FOR Z = 30 TO 33: 

HLIN 19,21 AT Z: NEXT 
7130 COLOR= 2: HLIN 11,29 AT 4: 

HLIN 10,30 AT 5: HLIN 9,31 AT 6 
7140 CQL0R= 12: HLIN 18,22 AT 36 
7150 C0L0R= 7: FOR Z = 36 TO 39: 

HLIN 0 X 39 AT Z: NEXT Z 
7160 COLOR= 12: HLIN 18,22 AT 36 
7170 C0L0R= 7: FOR Z = 30 T0 35: 
HLIN 0,9 AT Z: HLIN 31,39 AT Z: 
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Ecco ciò che fanno le linee 

2000-2999 

Stampa il punteggio 

10170 Gosub a linea 5000 


finale e controlla se è 

10180 Sceglie un limite di 


stato raggiunto un 

tempo. 1 bersagli ex¬ 


nuovo punteggio 

tra hanno meno 


massimo. 

tempo. 

3000 

Stampa il punteggio 

10190-10220 Esegue il loop. Se il 


corrente . 

bersaglio è colpito 

4000-4999 

Cancella il bersaglio 

interrompe e salta a 

5000-5999 

Disegna il bersaglio 

linea 10250 

6000-6199 

Cancella e ridisegna 

10230-10240 Cancella il bersaglio 


la posizione del fuci- 

senza segnare punti 


le. Controlla se ci so- 

e salta a 10300. 


no ancora munizioni 

10250-10290 Centrato! Suona per 

6200-6299 

Controlla se c 'è stato 

segnalare bersaglio 


un tiro 

colpito e aggiorna il 

6300-6399 

Se c’è stato un tiro 

punteggio. 


questa routine con- 

10300 Fine del loop princi¬ 


frolla se si è colpito il 

pale del programma. 


bersaglio. Inoltre sot¬ 

10305-10320 Informa Tutilizzatore 


trae le munizioni usa¬ 

che ha esaurito i ber¬ 


te e stampa la quanti¬ 

sagli. Ciò si vede 


tà rimasta. 

molto dirado , perché 

7000-7099 

Questa routine dise¬ 

nel 95 % dei casi 1 ’ uti¬ 

7110-7999 

gna casa e albero. 

lizzatore esaurisce 

7100 

Subroutine per dise¬ 

prima le munizioni. 


gnare la finestra. La 

10330-10340 Conclude il gioco. 


posizione della fine¬ 

10350-10370 Chiede all’utilizzato¬ 


stra X nell 'angolo alto 

re se vuol giocare di 


a sinistra è memoriz¬ 

nuovo. In caso nega¬ 


zata nelle variabili 

tivo termina. 


IA(X) e JA(X). 

60000-60020 Riceve daH’utilizza- 

8000-8999 

Istruzioni. 

tore una risposta S 

9000-9999 

Titolo 

(sì) o N (no). 

10000-10100 

Imposta il gioco. 

61000-61010 Stampa un numero, 

10110-10300 Loop principale del 

NM, seguito da zeri. % 


programma. 

62000-62999 Legge le posizioni 

10130-10150 Attesa casuale prima 

delle finestre. Inoltre 


della comparsa del 

legge le subroutine 


bersaglio. 

in linguaggio mac¬ 

10160-10168 Sceglie quale bersa- 

china per il suono. 


glio illuminare. Sce¬ 

63000-63999 Tabelle dei dati perle 


glie inoltre il valore. 

posizioni delle fine¬ 


Le finestre valgono 

stre e le subroutine in 


50 punti, i due bersa¬ 

linguaggio mac¬ 


gli extra valgono 200 

china. 


e 250 punti. 



NEXT 2 

7180 COLOR= 8: VLIN 25,30 AT 4: 
HLIN 1,3 AT 24: HLIN 5,8 AT 24: 
PLOT 2,25: PLOT 7,25: PLOT 
1,26: PLOT 8,26: PLOT 1,27: 

PLOT 1,23: PLOT 6,23: PLOT 
0,22: PLOT 7,22 
7190 RETURN 

7999 END 

8000 REM -ISTRUZIONI 
8010 TEXT : HOME 

8020 PR1NT ‘ ISTRUZIONI: ‘ 


8030 POKE 34,3 

8040 HOME : PRINT *L' OBIETTIVO 
E' QUELLO DI 1 : PRINT : PRINT 
■COLPIRE I BERSAGLI (IN 
ROSSO)’: PRINT : PRINT 'CHE 
APPAIONO IMPR0W1SJ. IL 
QUADRATINO’: PRINT : PRINT 
•BIANCO MOSTRA DOVE STAI 
SPARANDO. LO’: PRINT 
8050 PRINT ’CCNTROLLI CON PADDLES 
0 JOYSTICK.*: PRINT 
8060 PRINT 'SPARI PREMENDO IL 


rizzi 2044 e 2045. Come li si può distin¬ 
guere da un vero punteggio massimo? 
Il modo di risolvere il problema è quello 
di usare una "chiave”. Se la chiave è 
presente il programma è stato girato in 
precedenza e c’è in memoria un pun¬ 
teggio massimo “vero”. Se la chiave è 
assente ci sono in memoria dati indesi- 


PULSANTE.’: PRINT : PRINT 
8065 PRINT 

8075 PRINT 'BATTI RETURN QUWDO 
SEI PRONTO...’;: POKE - 
16368,0 

8080 GET Kl: 1F Kl ( > CHRI 
(13) THEN 8080 
8090 RETURN 

8999 END 

9000 REM -TITOLO 

9010 TEXT : HOME : VTAB 6 
9020 A* = ’** PRONTI, PUNTARE, 
FUOCO! **’: INVERSE : GOSUB 
9100: NORMAL 

9030 A* = ’DI ANDREW BERMAN’: 

GOSUB 9100 

9040 A* = ’- 

.’: GOSUB 9100 

9045 Al = ’ (C) BY APPLICANDO AND 
MICRO-SPARC 1983 ’: GOSUB 9100 
9050 FOR X = 1 TO 3500: NEXT : 
RETURN 

9100 NTAB 20 - LEN (Al) / 2 ♦ I: 
PRINT Al: PRINT : PRINT : PRINT 
: RETURN 

9999 END 

10000 REM -CONTROLLER. 

10005 GUN = 770:P1P = 800:AAARGH = 
832 

10006 GOSUB 62000: REM LEGGE LE 

VARIABILI 

10010 GOSUB 9000: REM TITOLO 

10020 VTAB 20: HTAB 1: PRINT 
'VUOI LE ISTRUZIONI? (S/N)’ 
10030 GOSUB 60000: REM SON 

10040 IF (M = ’S’ THEN GOSUB 
8000 

10060 GOSUB 7000: REM DRAU AREA. 

10070 SC = 0:AM = 25:HS = PEEK 
(2044) < PEEK (2045) * 256 
10080 HOME : PRINT "PUNTI: 

0000*;: HTAB 20: PRINT ’MUNIZ.: 
25’: PRINT * RECORD DELLA 
GIORNATA: ’;:M4 = HS: GOSUB 
61000 

10090 PRINT : INVERSE : HTAB 4: 
PRINT ’’ QUALUNQUE TASTO PER 
COMINCIARE é’;: HTAB 1: NORMAL 
10100 POKE - 16368,0: UAIT - 
16384,128: POKE - 16368,0: 

CALL - 368: CALL - 1059 
10110 FOR VI = 1 TO 25: REM 25 
Segue a pag50 
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derati e il punteggio massimo è azzera¬ 
to. Si scrive la chiave in memoria in 
2046 e 2047. Se i numeri non sono 123 
e rispettivamente 213 il programma non 
è stato girato, e vengono scritti in me¬ 
moria zeri in 2044 e 2045. Poi il pro¬ 
gramma scrive in memoria 123 e 213 
rispettivamente negli indirizzi 2046 e 


Segue da pag 49 

BERSAGLI ! ! 

10120 XV = - 1:YV = - 1:W? = - 
1: REM NIENTE VITTIME SULLO 
SCHERMO 

10130 WT = 1NT < RND (1) * 30) r 
30: FOR X8 = 1 TO WT 
10140 G0SUB 6000: REM MIRA E 
SPARA 

10150 NEXT X8: REM LE TRE LINEE 
PRECEDENTI SONO SOLO UN PERIODO 
D' ATTESA PRIMA DELLA COMPARSA 
DELLE VITTIME 

10160 U? = 1NT ( RND (1) * 12) 4 
1 

10165 ON U7 GOTO 10166,10167: 

GOTO 10168 

10166 VA = 250: GOTO 10170 

10167 VA = 200: GOTO 10170 

10168 VA = 50: GOTO 10170 

10170 G0SUB 5000: REM TROVA LA 
POSIZIONE IN BASE ALLA FIGURA E 
STAMPA UN 'PIP' 

10180 UT = 10: 1F W7 < 3 THEN WT = 
9: IF U7 ( 1 THEN UT = 8: REM 
RESTA MENO TEMPO PER QUELLI CHE 
VALGONO DI PIU'... 

10190 FOR X8 = 1 T0 WT 
10200 GOSUB 6000: REM COLPITO? 
10210 1F SH = 1 THEN X8 = WT: 

NEXT X8: GOTO 10250: REM -SI, 
COLPITO! 

10220 NEXTX8 
10230 GOSUB 4000: REM 
CANCELLALO. SPIACENTE 
10240 GOTO 10300 
10250 REM COLPITO! 

10260 CALL AAARGH 
10270 SC = SC ♦ VA: REM AUMENTA 
IL PUNTEGGIO 

10280 NP = 1: GOSUB 4000:NP = 0: 
REM NP=N0 P1P 

10290 GOSUB 3000: REM -AGGIORNA 
IL PUNTEGGIO 
10300 NEXT VI 

10305 C0L0R= CO: PLOT X0,Y0: REM 
CANCELLA IL PUNTINO 
10310 VTAB 24: IWERSE : HTAB 1 : 
PR1NT "ECCO FATTO. PER ORA MI 
FINITO.*!: N0RMAL : HTAB 1 
10315 GOSUB 2000: REM 
-AGGIORNAMENTO FINALE 
10320 FOR X8 = 1 T0 3000: NEXT X8 


2047, per dire a se stesso che il gioco è 
stato girato e che è presente un "vero” 
punteggio massimo. Naturalmente se 
in seguito il programma sarà fatto girare 
vedrà il 123 e il 213 e non azzererà il 
punteggio massimo. Tutto ciò viene 
compiuto nella linea 35. 

Questo è tutto. Pronti, puntare, fuoco! 


10330 REM - SE FINISCONO LE 
MUNIZIONI (LINEE 6000-6999), IL 
PR0GRAM1A SALTA QUI 
10335 GOSUB 2000: REM 

AGGIORNAMENTO FINALE E VERIFICA 
EVENTUALE NUOVO RECORD 
10340 C0L0R= CO: PLOT X0,Y0: VTAB 
24: CALL - 868 
10350* INVERSE : PR1NT 'GIOCHI 
ANCORA? (S/N)*;: N0RMAL : HTAB 
1 

10360 GOSUB 60000: IF ANI = *N* 
THEN VTAB 24: HTAB 1: CALL - 
668: VTAB 23: END 
10370 GOTO 10070: REM ANCORA 

59999 STOP : REM 

60000 POKE - 16368,0 

60010 UA1T - 16384,128:ANI = 

CHRI ( PEEK ( - 16384) - 128): 
POKE - 16368,0: 1F (M = *S* 

OR ANI = *N* THEN RETURN 
60020 GOTO 60000 
61000 IF IH ( 1000 THEN PR1NT 
*0*;: 1F NM < 100 THEN PRINT 
*0*j: IF NI < 10 THEN PRINT 

*0*i 

61010 PRINT W;s RETURN 
62000 REST0RE 

62010 FOR X = 3 T0 12: READ 
IA(X),JA(X): NEXT X 
62020 FOR X = 770 T0 784: READ Y: 

POKE X,Y: NEXT X: REM SPARO 
62030 FOR X = 800 T0 813: READ Y: 

POKE X,Y: NEXT X: REM PIP 
62040 FOR X = 832 TO 848: READ Y: 

POKE X,Y: NEXT X: REM AAARGH 
62050 RETURN 
63000 REM -DATA 
63010 DATA 11, 10, 18, 11, 23, 

10, 17, 16, 22, 16, 12, 19, 20, 
22, 25, 25, 11, 26, 12, 31 

63019 REM 770-784 SPARO 

63020 DATA 162, 1, 138, 32, 168, 
252, 141, 48, 192, 232, 224, 

32, 208, 244, 96 

63029 REM 800-813 PIP 

63030 DATA 162, 48, 141, 48, 192, 
169, 16, 32, 168, 252, 202, 

208, 245, 96 

63039 REM 832-848 AAARGH 

63040 DATA 162, 1, 141, 48, 192, 
138, 105, 56, 32, 168, 252, 

232, 224, 21, 208, 242, 96 
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Organizzandosi per tempo, fra una corsa in catamarano 

e una partita di tennis, le ferie sono il momento migliore 
per approfondire quel certo programma o imparare 

proprio tutti i segreti del computer. Purché... 


Sole mare 

ed Apple II 



Q uindici giorni? Venti? Un mese di 
vacanza? Perché non approfittarne 
per studiare a fondo, finalmente, quel 
certo programma che, acquistato, giace 
in attesa di quel momento di respiro che 
non arriva mai? Oppure, perché non 
sfruttare qualche oretta per provare a 
costruirsi da soli il pacchetto applicativo 
che, almeno nelle intenzioni, dovrebbe 
risolvere ogni problema? 

Sì, portarsi l’Apple al mare. O in mon¬ 
tagna. È una tentazione grossa, scagli il 
primo dischetto chi non ci ha pensato 
almeno una volta. Ma poi i bagagli son 
già troppi, c’è la gabbia del canarino, i 
bambini insistono per portare anche il 
canotto bucato l’anno scorso e ormai 


inutilizzabile... E c’è lei, la grande nemi¬ 
ca: "Se te lo porti dietro anche in vacan¬ 
za chiedo il divorzio”, comincia a dichia¬ 
rare, "da quando è entrato in casa quel 
coso lì ti chiudi nel tuo studio e beato chi 
ti vede. Almeno al mare stai con noi!" 

Già, almeno al mare. E la sera? La 
noia della solita passeggiata in mezzo 
alla folla, o del filmaccio di terzultima 
categoria già visto tre volte alla TV? E al 
pomeriggio mentre tutti dormicchiano? 
E al mattino presto, vuoi mettere il pia¬ 
cere di un Catalog battuto mentre sorge 
il sole, lontano dai telefoni e dalle solite 
noie cittadine? 

Certo, resta sempre qualche proble¬ 
ma. Primo fra tutti quello familiare. I 
bambini in realtà non sono un ostacolo, 
perché con Apple, dai tre anni in su, se li 
avete sapientemente abituati a non ma¬ 
sticare i dischetti, hanno solo un rappor¬ 
to di amore e di attesa. Il dramma è, 
generalmente, lei, la moglie. Come fa¬ 
re? La regola è una sola: coinvolgerla. A 
tutti i costi. Gioca a bridge o vorrebbe 
imparare? Compratele il programma 
adatto e convincetela, con dolcezza, a 
provare. Se ha propensioni psicologi¬ 
che, mettete nel drive Elisa (come, non 
lo conoscete? è il programma grazie al 
quale si dialoga con l’elaboratore come 
si dialogherebbe con uno psicologo, 


con effetti di sconcertante realismo; pe¬ 
rò bisogna che vostra moglie conosca 
l’inglese...). Un amico ha ottenuto l’ef¬ 
fetto voluto con Animals , il programma 
che indovina a quale animale state pen¬ 
sando: sua moglie impazzisce per cani, 
gatti, merli indiani, ecc. 

Convinta e coinvolta la moglie (non 
troppo però, se si vuole continuare ad 
aver accesso alla tastiera senza dover 
acquistare un altro computer), si può 
cominciare a pianificare. Innanzitutto le 
spine triple e gli eventuali fili d’allunga¬ 
mento: di solito è l’ultima cosa alla quale 
si pensa, ma sono fondamentali. Poi 
conviene pensare a quante cose esat¬ 
tamente portarsi dietro. Per decidere se 
i drive servono proprio tutti e due e se 
della stampante non si può proprio fare 
a meno bisogna meditare sul tipo di la¬ 
voro che si intende fare al mare o in 
montagna con l’Apple. In genere, se si 
vuol programmare, un drive solo può 
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ostare, e d’altra parte quasi tutti i pro- 
irammi, anche quelli che normalmente 
'revedono l’uso di due drive, consento- 
o, con qualche piccola macchinosità in 
iù, anche di usarne uno solo. Per la 
tampante la decisione può risultare più 
ifficile: è proprio legata a quel che cia- 
cuno si ripromette di fare. Ma conside- 
ando che tornati a casa dopo le ferie si 
otrà stampare tutto quel che nel frat- 
ìmpo è stato appositamente stipato sul 
ischetto, ecco che anche di questo ac- 
essorio si può, volendo, fare a meno. 

E il video? Qui le cose si complicano. 
Tri passa le ferie in una casa privata, 
otata di televisore, potrebbe munirsi 
eH'interfaccia adatta e lasciare il moni- 
)r in città. Potrebbero sorgere però 
onflitti con gli altri membri della fami- 
lia che a una cert’ora agli istogrammi di 
apà preferiscono Dallas. 

In ogni caso il consiglio migliore è 
uello di sconnettere tutti i cavi e imbal- 
ire per bene tutto quel che si è deciso 
i portare. 

I drive, per esempio: basta un minuto 
er staccarli, dopo aver aperto il coper¬ 
to del computer, e un minuto per ri¬ 


montarli. Ed è più sicuro. 

Chi invece di un periodo di vacanza 
mediolungo prevede una serie di perio¬ 
di più brevi, e cioè con spostamenti con¬ 
tinui del computer, può prendere in esa¬ 
me un’altra soluzione: a Torino la CGT 
settore informatica (Corso Vittorio Ema¬ 
nuele II, 40 - tei. 011/543671 ) vende un 
kit chiamato Dream che trasforma l’Ap¬ 
ple Il in una specie di bauletto da viag¬ 
gio. Il kit (costa 690 mila lire più IVA) 
comprende anche un monitor da 6 polli¬ 
ci e gli attrezzi per lo smontaggio e il 
rimontaggio nella nuova versione, che 
non compromette la funzionalità del 
computer (ma l’estetica sì). 

Comunque, che decidiate di imballar¬ 
lo, di metterlo nel baule o di poggiarlo 
semplicemente sul sedile posteriore 
della vostra auto (che è la cosa più faci¬ 
le, ma anche la più rischiosa), non di¬ 
menticate accessori essenziali come i 
dischetti, il nastro nuovo per la stam¬ 
pante (se avete deciso di portare in vil¬ 
leggiatura anche lei), i manuali, eccete¬ 
ra. Dovunque andiate sarà comunque 
difficilissimo trovarne. 

Infine, i fattori ambientali. Sole mare e 


sabbia fanno bene a voi, ma ad Apple II 
no. Soprattutto se si infiltrano fra tasto e 
tasto. Idem per le bibite ghiacciate o la 
pioggia improvvisa che sorprende il 
computer sul tavolo in giardino. 

Poi, l'energia elettrica. Nei centri di 
vacanze ha la brutta abitudine di venire 
a mancare molto più spesso di quanto 
non accada in città: salvate ancor più 
frequentemente sul dischetto quel che 
state facendo, o munitevi di un’apposita 
batteria in tampone che vi assicuri ener¬ 
gia per evitare che in questi casi si per¬ 
da quel che avete in memoria. 

Sempre a proposito di energia, ricor¬ 
date che molti alberghi potrebbero farvi 
difficoltà: la luce la pagano loro e con¬ 
vincere il personale che non è vero che 
un computer consuma chissà cosa può 
essere difficile. In alcuni casi può esser 
meglio avvertire prima. 

Scoraggiati? No! Fosse solo per que¬ 
sto... In realtà quello dal computer può 
essere l’hobby più divertente e intelli¬ 
gente mai inventato. Privarsene proprio 
quando si ha finalmente un po’ di tempo 
libero non avrebbe senso. Coraggio, al¬ 
lora: basta pensarci per tempo. 



E per trovarlo 
già acceso 
in riva al mare 

Mare, sole, barche a vela, tiro con 
l'arco, judo e... Apple II. Chi preferi¬ 
sce non sottoporre il suo computer 
alle fatiche di un viaggio massa¬ 
crante verso l'estate, può trovarlo 
fresco e riposato sul posto, installa¬ 
to in locali ombreggiati, e pronto per 
l'uso. E ciascuno, se crede, si porti i 
suoi dischetti, delicati sì, ma più fa¬ 
cili da trasportare. 

A offrire vacanze condite con fet¬ 
tine di mela è il villaggio Valtur di 
Nicotera, in Calabria, presso Capo 
Vaticano. A Nicotera i meno esperti 
potranno approfittare di un vero e 
proprio corso di iniziazione all’infor¬ 
matica in generale e all'Apple II in 
particolare; i già esperti potranno 
invece interrompere la routine 
spi aggi a-abbronzatur a-aperiti- 
vo-ecc., per passare a routine e su¬ 
broutine di Basic. 

L’iniziativa, fra le più intelligenti 
intraprese dai villaggi che offrono 
vacanze tutto compreso, dimostra 
l’importanza e la diffusione raggiun¬ 
ta dal fenomeno computer, sulla 


scia anche di quanto è avvenuto ne¬ 
gli Stati Uniti, dove è ormai diffusis¬ 
sima, soprattutto per i ragazzi, perfi¬ 
no la formula campeggio più com¬ 
puter. 

Il villaggio di Nicotera, che dispo¬ 
ne anche di un giardino d’infanzia 
assistito da Un pediatra, è aperto 
dal 4 giugno al 24 settembre, e tra¬ 
scorrervi una settimana costa da 
280 a 560 mila lire, secondo che il 
periodo prescelto sia in alta o in 
bassa stagione. I bambini fino a sei 


anni pagano meno, circa la metà. 

Per il viaggio la Valtur organizza 
voli con partenza da Milano e da 
Roma. Ma Nicotera è ben servita 
anche dalle ferrovie. 

Comunque è bene prenotare per 
tempo, scrivendo a Valtur Vacanze 
S.p.a., Via Milano 42, Roma (telefo¬ 
no 0614706238-239), oppure rivol¬ 
gendosi direttamente agli uffici di 
Milano (Piazza Meda 3, telefono 
791733) o di Torino (Via Alfieri 22, 
telefono 516016). 
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Sede centrale: Roma - Via Flavio Domiziano, 10 (Eur) - tei.06/5126700-5138023 
ComDUter shop: Roma - Via F. Satolli, 55/57/59 (p.zza pio XI) - tei. 06/6386096-6386146 


Viterbo: Via Giacomo Matteotti, 73 - tei. 0761/38669 
Frosinone: V.le America Latina, 14 - tei. 0775/855263 

Latina: C.so della Repubblica, 200 - tei. 0773/495998 Distneu/ione pe* ' 

Cisterna di Latina: Via Aversa, 11 - tei. 06/9696973 ine? 

Gaeta: Via San Nilo, 4 - tei. 0771/460761 ? 


la più estesa e fornita 
rete di vendita Apple 
nel lazio 

PROGRAMMI, PERIFERICHE, CORSI^MERCATO USATO 
FACILITAZIONI E CREDITO PERSONALE 



DORMITE SONNI TRANQUILLI!!! 

NDCDPY 3.U 

Per APPLE II - APPLE II PLUS 48 K 


LA RISPOSTA ITALIANA AL PIU' FAMOSO 
DEI BIT-COPIER AMERICANI 

Il nostro programma vi consentirà di vendere il 
vostro software per APPLE II senza che ne possano 
venir fatte copie abusive neanche usando i più 
famosi e pubblicizzati “copiatutto'’ in circolazione. 
Vengono inoltre inibiti CATALOG, LIST, SAVE 
sia su registratore che su disco e l'uscita in linguaggio 
macchina. 


Realizzato da: 

CLUB MELA-MANIA 
c/o Dr. Occhiodoro Gianni 
Via Crivelli, 9 
60100 ANCONA 
Tel. (071) 898050/34606 


distribuito inoltre da: 

SISTEDA computers 

Associato Multi Deit 

Via Velino, 5 

TORRETTE 

60100 ANCONA 

Tel. (071) 880774/880775 


Prezzo L. 300.000 + IVA comprensivo di programma per 
back-up dischi dati — spedizione contrassegno ovunque- 
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Bonaparte morì di sabato: era il 125° giorno del 1821. 
Ma secondo il calendario giuliano 
usato dagli astronomi era il giorno numero 2.386.290,5.... 



Sì, son nato 

un giovedì 


I n che giorno della settimana morì Na¬ 
poleone? Quanti giorni sono trascorsi 
da quando l’uomo scese per la prima 
volta sulla luna, il 24 luglio 1969? Qual è 
la data del calendario giuliano corri¬ 
spondente al 21 agosto 1983? Che 
giorno dell’anno era il 23 maggio 1981 ? 
Non sempre basta un calendario: avete 
sottomano un calendario del 1821 ? Ep¬ 
pure può far comodo sapere se si è nati 
di lunedì o di venerdì. O quanti giorni 
esattamente dopo un certo avvenimen¬ 
to se ne è verificato un altro... 

Il calendario 

Il primo calendario si basava proba¬ 
bilmente sul mese lunare, cioè andava 


10 REM <C) 1983 - COPYRIGHT BY 

APPLICANDO AND INCIDER 
20 REM GIORNI DELLA SETTIMANA 
30 REM BY DR.ROBERT SUDER 
100 CLEAR 
110 D»(0) = •SABATO' 

120 D4(l) = 'DOMENICA’ 

130 D4<2) = ’LINEDI' 

140 D4<3) = 'MARTEDÌ" 

150 D4<4) = 'MERCOLEDÌ' 

160 D$<5) = 'GIOVEDÌ' 

170 D4<6) = 'VENERDÌ' 

500 HOME : VTAB (5): PR1NT ' 

MENU" 

510 VTAB (8): PRINT ■ 

1— GIORNO DELLA SETTIMANA* 

520 VTAB (10): PRINT ' 

2— GIORNI FRA DUE DATE' 

530 VTAB (12): PRINT “ 

3— GIORNO DELL' AWO* 

540 VTAB (14): PRINT " 

4— GIORNO GIULIANO' 

550 VTAB (16): PRINT “ 

5— FINE* 


560 VTAB (20): PRINT ' -- 

BATTI IL NUMERO SCELTO 
570 INPUT N 
580 0N N GOTO 

1000,2000,3000,4000,10000 
590 GOTO 570 

1000 REM DETERMINAZIONE DEL 
GIORNO 
1010 HOME 

1020 PRINT : PRINT ' 

GIORNO DELLA SETTIMANA" 

1030 VTAB (5): PRINT 'PER QUALE 
DATA DEL CALENDARIO VUOI' 

1040 VTAB (6): PRINT 'DETERMINARE 
IL GIORNO? BATTI IN FORM' 

1050 VTAB (7): PRINT 'GG/W/AAAA. 

L' ANNO DEVE ESSERE' 

1060 VTAB (8): PRINT 'POSTERIORE 

AL 1582.' 

1070 INPUT 24 

1080 GOSUB 5000 

1090 I = X - (7 * 1NT (X / 7)) 

1100 HOME 

SUO VTAB (8): PRINT Z4;' = 


■;D4(I) 

1120 VTAB (21): PRINT 'BATTI 
'RETURN' PER CONTINUARE, 'F' 

PER FINIRE' 

1130 INPUT Z4 

1140 IF 24 = 'F' THEN 10000 
1150 GOTO 100 

2000 REM NUMERO DEI GIORNI FRA 
DUE DATE 
2010 HOME 

2020 PRINT : PRINT " 

GIORNI FRA LE DATE' 

2030 VTAB (3): PRINT • 

___a 

2040 VTAB (5): PRINT 'QUAL E' LA 
PRJM DATA? BATTI IN FORM:* 
2050 VTAB (6): PRINT ’GG/MM/AAAA' 
2060 VTAB (8): PRINT 'L' ANNO 
DEVE ESSERE POSTERIORE AL 1582' 
2070 INPUT 24 
2080 GOSUB 5000 
2090 XI = X:M1 = M:G1 = G:A1 = 
A:Z14 - 24 

2100* VTAB (12): PRINT 'QUAL E' LA 
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da una luna piena alla successiva. Ciò 
non era molto soddisfacente in quanto 
l'intervallo è di 29,5 giorni, e nel giro di 
pochi anni i mesi non corrispondevano 
alla stagione effettiva. Poi, nel 46 a.C., 
Giulio Cesare mise a punto uno stru¬ 
mento più affidabile, ma anche il calen¬ 
dario giuliano era men che preciso. 

Il problema dell’invenzione di un ca¬ 
lendario è che un anno solare non è 
esattamente di 365 giorni; è più vicino a 
365,26 giorni. Questa frazione residua 
di giorno è il motivo per cui ogni quattro 
anni c’è un anno bisestile. Ma pur com¬ 
prendendo l’anno bisestile il calendario 
giuliano è impreciso, e con il susseguir¬ 
si degli anni gli errori si accumulavano. 

Infine, nel 1582, Papa Gregorio XIII 
stabilì di stralciare dieci giorni per ripor¬ 
tare il calendario al passo con le sta¬ 
gioni. 

Oggi il calendario gregoriano è il più 
usato. Tutti gli anni esattamente divisi¬ 
bili per quattro sono bisestili, tranne l’ul¬ 
timo anno del secolo quando è esatta¬ 
mente divisibile per 400. Fra 3000 anni 
il calendario gregoriano sarà in errore di 
meno di un giorno. 

A causa della complessità del calen¬ 
dario civile venne inventato, soprattutto 
per le esigenze degli astronomi, il ca¬ 
lendario del giorno giuliano, che non ha 
nulla a che fare con il calendario di Giu¬ 
lio Cesare Augusto, e che venne chia¬ 
mato così dall’ideatore, Joseph Justus 
Scaliger, in omaggio al padre Giulio Ce¬ 
sare Scaliger o Scaligero, letterato, me¬ 



dico e filosofo italiano emigrato in Fran¬ 
cia (dove, appunto ad Agen, nacque nel 
1540 Joseph). Esso conta semplice- 
mente il numero dei giorni trascorsi dal 
1 gennaio 4713 a.C. Poiché il giorno 
giuliano comincia a mezzogiorno si ot¬ 
terranno valori frazionari. Così la data 
giuliana corrispondente al 12 agosto 
1981 è 2.444.828,5. 


Il programma 

Per determinare il numero dei giorni 
fra due date si assegna dapprima un 
valore a ciascuna data, e poi si trova la 
differenza dei valori. I valori sono calco¬ 
lati usando le equazioni nelle linee 6020 
e 6040. Y è l’anno, M è il mese e D il 
giorno. Il giorno dell’anno viene deter¬ 


minato usando l’equazione nella linea 
1080. Se I = 0 il giorno è sabato; se I = 
1 è domenica e così via. 

La subroutine che incomincia sulla 
linea 5000 permette di introdurre la data 
sotto la forma GG/MM/AAAA, cioè gior¬ 
no, mese e anno, come si usa in Europa 
(mentre negli U.S.A. la forma tipica è 
MM/GG/AAAA). 


SECONDA DATA?' 

2110 VTAB (J3): PRIMI 
'GG/MM/AAAA" 

2120 INPUT li 

2130 GOSUB 5000 

2140 N = ABS (X - XI) 

2150 HONE 

2160 VTAB (8): PR1MT "IL NOMERÒ 
DI GIORNI FRA IL "jZi* 

2170 VTAB (10): PRINT ‘E IL 

■iZfj* E' *N 

2180 VTAB (21): PRINT ''RETURN' 
PER CONTINUARE, 'F' PER FINIRE 1 
2190 INPUT li 

2200 IF li = *F* THEN 10000 
2210 GOTO 100 

3000 REM NUMERO DEL GIORNO 
NELL'AUTO 
3010 HOME 

3020 PRINT : PRINT 1 NUMERO 
DEL GIORNO NELL' ANNO 1 
3030 VTAB (3): PRINT 1 


3040 VTAB (5): PRINT "QUALE DATA? 


(BATTI IN FORMA GG/MM/AAAA) 1 
3050 VTAB (6): PRINT ’L' OTTO 
DEVE ESSERE POSTERIORE AL 1582* 
3060 INPUT li 
3070 GOSUB 5000 
3080 XI = X:M1 = M:G1 = 6 
3090 M = 1:6 = 0 
3100 GOSUB 6000 
3110 N = XI - X 
3120 HOME 

3130 VTAB (8): PRINT li-,' E' IL 
GIORNO NUMERO ";N 
3140 VTAB (21): PRINT "'RETURN' 
PER CONTINUARE, 'F' PER FINIRE 1 
3150 INPUT li 
3160 1F li = "F* THEN 10000 
3170 GOTO 100 

4000 REM CALENDARIO GIULIANO 
4010 HOME 

4020 PRINT : PRINT 1 DATA 

GIULIANA" 

4030 VTAB (3): PRINT 1 

_ ■ 

4040 VTAB (5): PRINT "BATTI LA 


DATA NELLA FORMA GG/TO/MAA" 
4050 VTAB (6): PRINT 1 L' (W0 
DEVE ESSERE POSTERIORE AL 1582" 
4060 INPUT li 
4070 GOSUB 5000 

4080 XI = X:M1 = M:61 = G:A1 = A 
4090 M = 1:G = 1:A = 1583 
4100 GOSUB 6000 
4110 J = 2299238.5 + (XI - X) 

4120 HOME 

4130 VTAB (8): PRINT H;' E' IL 
GIORNO GIULIANO a ;J 
4140 VTAB (21): PRINT ‘'RETURN' 
PER CONTINUARE, 'F' PER FINIRE 1 
4150 INPUT li 

4160 IF li = "F 1 THEN 10000 
4170 GOTO 100 
5000 REM SUBR0UTINE DATA 

5010 FOR 1 = 1 TO LEN (Zi) 

5020 IF M1D$ (Zt,1,1) ( > ’/* 
THEN NEXT I 

5030 REM I E' LA POSIZIONE DEL 

PRIMO '/' 

Segue a pag. 57 
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Dal 1582 a oltre il 2000... 

Ecco un esempio di quel che si vede sullo schermo quando si avvia il 
calendario perpetuo. Il menù offre cinque opzioni: se si sceglie la prima ci si 
troverà nella sezione 44 giorno della settimana", con la seconda si va nella 
parte 44 giorni fra due date ", e così via. Attenzione a digitare la cifra dell’anno 
per intero: 1968, per esempio, e non 68, altrimenti il programma deduce 
che l’anno è anteriore al 1582, e rimbrotta gentilmente per l'errore. Qui non 
si poteva prevedere una routine che inserisse automaticamente le prime 
due cifre dell’anno, altrimenti si sarebbe limitata a questo solo secolo la 
validità del calendario, che invece spazia liberamente dal 1582 in avanti, 
fino a oltre il 2000. 


MENU' 

1— GIORNO DELLA SETTIMANA 

2— GIORNI FRA OUE DATE 

3— GIORNO DELL' ANNO 

4— GIORNO GIULIANO 

5— -F1NE 

- BATTI IL NUMERO SCELTO - 

?1 

GIORNO DELLA SETTIMA 
PER QUALE DATA DEL CALENDARIO VUOI 
DETERMINARE IL GIORNO? BATTI IN FORMA 
GG/ftt/AAAA. L' FMO DEVE ESSERE 
POSTERIORE AL 1582. 

721/55/5/1821 
5/5/1821 = SABATO 

NUMERO DEL GIORNO NELL' #N0 


OLIALE DATA? (BATTI IN FORMA GG/Mt/AAAA) 
L' AWO DEVE ESSERE POSTERIORE AL 1582 
?4/yi983 

4/5/1983 E' IL GIORNO NUMERO 124 


GIORNI FRA LE DATE 


QUAL E' LA PR1M DATA? BATTI IN FORMA: 
GG/ltl/ftWl 

L' AWO DEVE ESSERE POSTERIORE AL 1582 
?13/12/1962 

QUAL E' LA SECONDA DATA? 

GG/MVAAAA 
?4/5/l983 

IL NUMERO DI GIORNI FRA IL 13/12/1962 
E IL 4/5/W83 E' 7447 

DATA GIULIANA 


BATTI LA DATA NELLA FORM GG/ltl/AAAA 
L' AMO DEVE ESSERE POSTERIORE AL 1582 
?4/5/1983 

4/5/1983 E' IL GIORNO GIULIANO 2445458.5 


Segue da pag. 55 

5040 FOR N = 1 ♦ 1 10 LEN (ZI) 

5050 1F MIDI <ZI,N,1) < > V 
THEN NEXT N 

5040 REM N E' LA POSIZIONE DEL 
SECONDO 7' 

5070 Gl = LEFTI <ZI,I - 1):G = 
WL (Gl) 

5080 MI = MIDI <ZI,I 4 J,N - I - 
1):M = VAL (MI) 

5090 Al = RIGHTI (ZI,4):A = VAL 
(Al) 

5100 IF M > = 1 AND M < =12 
THEN 5140 

5110 VTAB (15): PR1NT *IL MESE 
■jM;" NON ESISTE.* 

5120 VTAB (17): PR1NT 'BATTI 
'RETURN' E RICOMINCIA* 

5130 INPUT RI: GOTO 100 

5140 IF G > = 1 AND G ( =31 
THEN 5170 

5150 VTAB (15): PR1WT 'UN MESE 
NON PUÒ' AVERE *;G;’ GIORNI' 


5140 GOTO 5120 
5170 IF A ) = 1533 THEN 4000 
5180 VTAB (15): PRINT 'L' AMO 
DEVE ESSERE POSTERIORE AL 1582* 
5190 VTAB (14): PRINT 'TU HAI 
BATTUTO ';A 
5200 GOTO 5120 

4000 REM DETERMINAZIONE DEL 
VALORE 

4010 IF M ) 2 THEN GOTO 4040 
4020 X = 345 * A + G + 31 * (M - 
1) 4 INT ((A - 1) / 4) - INT 
(.75 * INT (((A - 1) / 100) 4 
D) 

4030 RETURN 

4040 X = 345 * A 4 G 4 31 * (M - 
1) - INT (.4 * M 4 2.3) 4 INT 
(A / 4) - INT (.75 * ( INT (A 

/ 100) 4 D) 

4050 RETURN 

10000 HOME : VTAB (24): HTAB 
(34): PRINT 'FINE': END 



IL COMPUTER SHOP DOVE- 
PERSONAL È UTILE 
PERSONAL È FACILE 
PERSONAL È BELLO! 

Via B. Croce, 11/13 
Brescia dietro (C.C.I.A.A.) 

Tel. (030) 42100 
Aperto anche di sabato 



SONO DISPONIBILI 
PRESSO DI NOI 


TUTTI I PRODOTTI 
SOFTWARE APPLE 

flÉcippkz 
w computer 

E 

NON DIMENTICATE 
L'AVVENTURA NEL CASTELLO! 


Distribuitone per l'Italia 



informatica 


c 1983 by Incider e Applicando 


























Disegnare sullo schermo? Non è solo un gioco. Decine di 

applicazioni serissime sfruttano la grafica di Apple. E visto 
che Applicando regala ai suoi abbonati un programma che... 


Figurati un po’! 


D isegnare, realizzare cartoni do in modo diverso ogni volta sim- sta, e indicare con quali altri vanno 
animati e programmare giochi boli che sono sostanzialmente collegati e come. Il tutto magari gra- 

anche migliori di quelli che mangia- uguali salvo che per posizione, di- zie a un programma che renda faci- 

no monete nei bar? Non è affatto mensioni e collegamenti. Sarebbe lissime queste operazioni? 
detto che le applicazioni grafiche davvero impossibile semplificargli È solo un esempio. In realtà la 

servano solo per giocare: immagi- la vita immagazzinando i vari sim- grafica di Apple può avere molte più 

niamo per esempio che un disegna- boli in memoria e lasciandogli solo il applicazioni pratiche, utili, di quanto 

tore elettronico, che svolga il suo compito di richiamarli, ingrandirli o non si immagini. Può valere la pena 
lavoro sostanzialmente disponen- rimpicciolirli, ruotarli il tanto che ba- allora di impratichirsene, soprattut¬ 


to POKE 130,1: POKE 104,64: POKE 
16384,0 

20 D$ = CHRi <4): REM CTRL-D 
30 HOME : INVERSE : PRINT 1 
SHAPES 

I 

40 NORMAL : PRINT : PRINT : PRINT 
■ 1.NUOVA TAVOLA" 

50 PRINT : PRINT " 2.FINE" 

95 PRINT : PRINT : IMMERSE : PRINT 

"(01983 COPYRIGHT APPLICANO 
0 AND INCIDER": NORMAL 

96 VTA8 (18): KTAB (10): INPUT ■ 

QUALE? ";A* 

97 IF A* = "1" THEN 100 

98 END 

100 PRINT D*i"RUNFIGURE" 


0 0NERR GOTO 63990 

1 GOTO 114 : REM (0 1983 
APPLICANDO E INCIDER 

2 GH= 1: RETURN 

3 IF BYTE - BE ) = 986 AND FA ( 

) 1 THEN POP : GOTO 18999 

4 RETURN 

5 IF KEY = 172 THEN 0LDY = 0LDY - 
1 :DX = DX - 1 

7 IF KEY = 172 AND K9 = 1 THEN 
0LDY = 0LDY ♦ 2 

8 IF KEY = 213 AND K9 = 5 THEN 
0LDY = OLDY - 2 

9 IF KEY = 206 THEN OLDY = OLDY - 
1:DX = DX ♦ 1 

11 IF KEY = 207 THEN OLDY = OLDY 
4 1;DX = DX ♦ 3 

13 IF'KEY = 213 THEN OLDY = OLDY 
+ 1:DX = DX - 3 

15 IF KEY = 207 fitto K9 = 3 THEN 


OLDY = OLDY - 2 

16 IF KEY = 206 A4D K9 = 7 THEN 
OLDY = OLDY ♦ 2 
20 RETURN 

30 TK = K8:K8 = K9: IF K8 = 215 
AND K9 = 215 THEN K8 = TK 

31 RETURN 

114 CALL - 936: INPUT "NUMERO DI 
FIGURE NELLA 
TAV0LA?(1-126):";NU 

115 IF NU ) 126 OR NU ( 1 THEN 
114 

116 NB = 0 

118 UQ = 2 

119 DIM XX(1001),YY(1001) 

130 DIN C(3):C<1) = 0:C<2> = 

0:C(3) = 0 
145 ADR = 2360 

150 LOC = 2360:X = 139:Y = 79 

151 POKE LOC,1: POKE LOC ♦ 2,4: 
POKE LOC ♦ 3,0:L0C = LOC ♦ 4:LC 
= LOC 

152 POKE LOC ♦ 1,0 

153 PFLA6 = OiLL = FRE (0): CALL 
54915:AF = 0: IF ZX = 1 THEN 
LOC = LOC + 1 

154 BE = BYTEiFA = 0 

159 IF AA = 1 THEN AA = 0:AF = 1 

160 HGR : HCQL0R= 3: R0T= 0: 
SCALE= 1:N = 0:C(0) = 8: GOSUB 
550 

170 VTAB (22): PRINT " BYTES 
NE=0 N=I NU=U PLOT:’ 

175 FLASH : VTAB 22: KTAB 36: 

PRINT "NO ": NORfttL 
180 VTAB 23: PRINT "DISP0N: E=L 
U=J" 

190 VTAB 24: PRINT " 5828 SE=, 
S=M SW=N B.USATI: " 


195 VTAB 22: HTAB 25: PRINT " 
FIGURA : * 

199 VTAB 23: HTAB 37: PRINT BYTE 
- BE + 4 

200 GOSUB 30: POKE - 16368,0: IF 
S6 ) 0 THEN 31000 

201 K8 = K9: VTAB 23: PRINT " 

VTAB 23: PRINT 8192 - LOC: 
GOSUB 3:K9 = KK 

203 KK = KEY:LF = 0 

204 VTAB 22: HTAB 32: PRINT NB ♦ 

1 

205 KEY = PEEK ( - 16384): IF KEY 
< 128 THEN 205 

206 IF GH = 1 THEN 900 

207 GOTO 211 

208 GOSUB 5 

211 GH = 0: IF KEY = 197 THEN 
25000 

212 SV = 0:FF = 0:TT = 0: IF KEY = 
215 THEN 2300 

219 IF KEY = 133 THEN 20000 

220 IF KEY = 208 THEN KEY = KEY - 
176 

221 IF KEY = 134 THEN 420 

222 IF KK = 215 THEN GOSUB 2400: 
IF K9 ) 0 AND K9 ( 9 THEN 
GOSUB 2330 

223 IF KK = 215 AND K9 = 215 THEN 
GOSUB 2730 

225 IF KEY = 147 THEN ZZ = 1: 

GOTO 420 

231 IF KEY = 207 THEN KEY = 1: 
GOTO 300 

232 IF KEY = 203 OR KEY = 204 
THEN KEY = 2: GOTO 360 

233 IF KEY = 172 THEN KEY = 3: 
GOTO 330 

234 IF KEY = 205 THEN KEY = 4: 


f 
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to se anche questa può diventare 
un'operazione di poca fatica. E que¬ 
sto è il caso: Applicando infatti re¬ 
gala, su dischetto, a tutti i suoi ab¬ 
bonati, il programma di cui in queste 
pagine viene pubblicato il listato. 
Dunque non occorre fare neppure 
la fatica di trascriverlo riga per riga 
dalla rivista, e si sarà in grado di 
realizzare sullo schermo i disegni 
che si desiderano, conservandoli in 
memoria, per poterli poi richiamare 
dall'interno di eventuali programmi 
applicativi. 

Quest’articolo, che è il primo di 
una serie, si limita a spiegare come 
utilizzare il programma. 

In pratica si tratta di un software 
che permette di disegnare sullo 
schermo nel modo più pratico pos¬ 


GOTO 

330 



235 IF 

KEY = 

206 THEN 

KEY = 5: 

GOTO 

330 



236 IF 

KEY = 

202 THEN 

KEY = 6: 

GOTO 

390 



237 IF 

KEY = 

213 THEN 

KEY = 7: 

GOTO 

300 



238 IF 

KEY = 

201 THEN 

KEY = 8: 

GOTO 

300 



245 IF 

KEY ( 

) 32 THEN 200 

250 PFLAG = NOT PFLAG 


260 VTAB 21: 

HTAB 36: 

IF PFLAG 


ti THEN 280 

270 PRINT 'SI *: GOTO 200 
280 FLASH : PRINT 'NO *: N0RMAL 
290 GOTO 200 
300 IF OLOY = 0 THEN 200 
305 Y = OLDY - 1 
310 C(N) = 0: IF PFLAG = 1 THEN 
C(N) = 4 
315 GOSUB 550 
320 IF KEY = 7 THEN 390 

322 IF KEY = 1 THEN 360 

324 GOTO 200 

330 IF OLDY = 159 THEN 200 
335 Y = OLDY 4 1 
340 C<N) = 2: IF PFLAG = 1 THEN 
C(N) = 6 
345 GOSUB 550 
350 IF KEY = 5 THEN 390 

352 IF KEY = 3 THEN 360 

354 GOTO 200 
360 IF DX = 279 THEN 200 
365 X = DX + 1 

370 C(N) = 1: IF PFLAG = 1 AND KEY 
= 2 THEN C(N) = 5 
380 GOSUB 550: 60T0 200 
390 IF DX = 0 THEN 200 
395 X = DX - 1 


400 C(N) = 3: IF PFLAG = 1 AND KEY 
= 6 THEN C(N) = 7 
410 GOSUB 550: 60T0 200 
420 CALL - 936 

430 B = C(l) 4 C(2) * 8 + C<3) * 
64: POKE L0C,B 

440 IF B = 0 AND BYTE ) 0 THEN' 
460 

450 LOC = LOC ♦ 1: POKE L0C,0:BYTE 
= BYTE M 
460 GOTO 480 

472 POKE SOI ♦ 2,(2 * NU) + 2: 

POKE SOI 4 1,0: POKE SOI + 3,0: 
POKE SOI,NU:ADR = SOI 

473 VTAB 21 : FLASH : PRINT 1 

SOSTITUISCI OIW IL DISCHETTO 
CON UN ALTRO 

INI21ALI2ZAT0 

(QUALUNQUE TASTO PER 
CONTINUARE)* 

474 POKE - 16368,0: GOSUB 23010: 
NORNAL :Di = CHR$ (4): HOME 

475 VTAB 23: INPUT ‘NONE DELLA 
TAVOLA DI FIGURE: *iN$ 

476 PRINT 

Di;*BSAVE*;N$; *,A*;ADR; *,L*;(LOC 

♦ 2) - ADR 

477 HOME : TEXT 

479 PRINT ‘TAVOLA DI FIGURE 
SALVATA*: GOTO 5000 

480 IF NU = 1 THEN SOI = 2360: 

POKE SOI,NU 

481 IF NU = 1 THEN 472 

482 IF NU = 2 AND NB = 0 THEN SOI 
= 2358:ADR = 2358: GOSUB 1000 

483 BT = BYTE:L1 = LOC 

485 NB = NB ♦ 1 : IF NU > 2 AND AF 

* 0 THEN GOSUB 2000 

486 IF NU ) 2 THEN LC = LOC 


487 IF NU = NB OR 2Z = 1 THEN 472 

488 Y = 79:X = 139 

489 C(l) = 0:C(2) = 0:C(3> = 0:ZX 
= 1: GOTO 153 

550 TC = C(N):TN = N: IF C(N) ) 3 
THEN 580 

560 HC0L0R= 0: HPLOT DX.OLDY 

580 HC0L0R= 3: HPLOT X,Y 

600 IF N ) 2 THEN GOSUB 620 
602 IF C(2) = 0 THEN IF N = 2 
AND Cd) ) 0 THEN GOSUB 16000 

605 IF BYTE > 0 TH0( OY = OLDY 

606 IF BYTE ) 0 THEN OX = DX 

610 TT = TT + 1:N = N + 1:DX = 

X:0LDY = Y: RETURN 
620 IF C(3) ( 4 MD C(3) > 0 THEN 
640 

630 SA = C(3):C(3) = 0 
635 SV = 1 

640 B = Cd) ♦ C(2) * 8 4 0(3) * 

64 

645 CI = C(1):C2 = C(2):C3 = C(3) 
650 IF B ( ) 0 THEN 670 
660 B = 128: POKE L0C,B:L0C = LOC 
4 1:BYTE = BYTE 4 1:XX(BYTE - 
BE) = X:YY(BYTE - BE) = Y 
670 POKE LOC,B:LOC = LOC 4 
1:XX(BYTE - BE) = X:YY(BYTE - 
BE) = Y 

680 BYTE = BYTE 4 1 : VTAB 23: KTAB 
37: PRINT * *: VTAB 23: HTAB 

37: PRINT BYTE 4 4 - BE 
690 IF C<3) = 0 THEN 710 
700 Cd) = 0:C(2) = 0:C(3) = 0:SA 
= 0:N = 0: RETURN 
710 Cd) = SA:C(2) = 0:C(3) = 0:SA 
= 0:N = 1: RETURN 
720 END 
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sibile, semplicemente spostando 
un puntino in verticale, in orizzonta¬ 
le o in diagonale. Il puntino può es¬ 
sere spento, quando non si voglio¬ 
no lasciar tracce sullo schermo, e 
riacceso, quando si vuol ricomincia¬ 
re a tracciare. Poi, una volta termi¬ 
nato, il disegno viene memorizzato 
come parte di una tavola di disegni 
(le famose shape table), e può es¬ 
sere richiamato e utilizzato come 
spiegheremo sul prossimo numero 
di Applicando. 

Se non l’avete già fatto, allora, 
abbonatevi; date tempo alle poste; 
e, una volta ricevutolo, infilate il di¬ 
schetto omaggio (che contiene an¬ 
che i programmi di statistica di pagi¬ 
na 22 e il gioco Scanner di pagina 
35) nel drive 1. Chiedete il catalogo, 


e vi accorgerete che oltre ai tre pro¬ 
grammi indicati ne è presente an¬ 
che uno chiamato Menù. È da que¬ 
st’ultimo che occorre passare (sem¬ 
plicemente battendo RUN MENU) 
per attivare il nostro disegnatore di 
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150 1F K9 = 2 AND (KEY = 204 OR 
KEY = 203) THEN 899 

151 IF K9 = 4 AND KEY = 205 THEN 
899 

152 1F K9 = 6 m KEY = 202 THEN 
899 

153 IF K9 = 8 AND KEY = 201 THEN 
899 

:54 60T0 3000 
155 0N K9 GOTO 

860,845,870,875,880,885,890,895, 


899 



160 IF 

KEY 

) 201 OR KEY < 205 

THEN 

X = 

X 4 2: GOTO 899 

:45 IF 

KEY 

= 201 OR KEY = 205 

THEN 

X = 

X - li GOTO 899 

:?0 IF 

KEY 

) 201 OR KEY < 205 

THEN 

X = 

X - 2: GOTO 899 

:75 IF 

KEY 

) 201 #4D KEY < 205 

THEN 

Y = 

Y - 1: GOTO 899 

:80 IF 

KEY 

) 201 OR KEY < 205 

THEN 

X = 

X 4 2: GOTO 899 

i85 IF 

KEY 

= 201 OR KEY = 205 

THEN 

X = 

X 4 1: GOTO 899 

90 IF 

KEY 

> 201 OR KEY < 205 

THEN 

X = 

X - 2: GOTO 899 

95 IF 

KEY 

) 201 MD KEY < 205 

THEN 

Y = 

Y 4 1 

99 HG « 

■ 0: 

GOTO 211 

00 IF 

KEY 

) 200 M0 KEY < 206 

THEN 

HG = 

« 1 

05 IF 

HG = 

= 0 THEN 910 

07 IF 

HG = 

■ 1 THEN 850 

10 IF 

K9 = 8 THEN Y = Y 4 1 : 

GOTO 

211 


15 IF 

K9 = 

= 4 THEN Y = Y - 1: 


GOTO 211 


920 1F K9 = 2 AND (KEY = 207 OR 
KEY = 213) THEN Y = Y - 1:X = X 

- 1: GOTO 211 

925 IF K9 = 2 AND (KEY = 206 OR 
KEY = 172) THEN X = X - 1:Y = Y 

- 1: GOTO 211 

940 IF K9 = 4 AND (KEY = 20? OR 
KEY = 213) THEN Y = Y - 1:X = X 
+ 1: GOTO 211 

945 IF K9 = 4 WD (KEY = 206 OR 
KEY = 172) THEN Y = Y 4 1sX = X 
♦ li GOTO 211 

999 GOTO 208 

1000 POKE S01.NU: P0KE SOI * 2,6: 
POKE SOI 4 3,0: POKE SOI ♦ 5,0: 
1F BYTE + ? < 256 THEN POKE 
SOI ♦ 4,7 ♦ BYTE: RETURN 

1004 GG= INT ((BYTE + 7) / 256): 

POKE SOI + 5,66 
1004 HH = (BYTE 4 7) - ( INI 
((BYTE + 7) / 254) * 256): POKE 
SOI 4 4,HH: RETURN 
2000 SOI = 2364 - (NU * 2) - 2: 
POKE SOI,NU 

2005 IF NB = 1 THEN POKE SOI 4 
2,<NU * 2) 4 2 

2010 ADR = SOI 

2011 IF NB = 1 AND NU < >2 THEN 
RETURN 

2012 UQ = UQ 4 2 

2015 IF ((LC - SOI) 4 1) ) 255 
THEN 2030 

2020 POKE SOI 4 WQ,(LC - SOI) 4 1 
2022 POKE SOI 4 UQ 4 1,0 
2025 RETURN 

2030 GG = INT (((LC - SOI) 4 1) / 
254) 

2040 POKE SOI 4 UQ 4 ],66 


50 


figure. Perché non dall’altro, pure 
presente sul dischetto? Perché, per 
funzionare, il nostro programma ri¬ 
chiede che prima si faccia un 

POKE103.1 :POKE104,64:POKE16384,0 

Questo è esattamente ciò che fa 
il programma Menù, dando poi au¬ 
tomaticamente il Run per la realiz¬ 
zazione di figure. Il tutto è stato co¬ 
struito sotto forma di menù, comun¬ 
que, anche per un altro motivo: ab¬ 
biamo parlato di puntate, ed è no¬ 
stra ferma intenzione, nelle prossi¬ 
me, di aggiungere opzioni al menù, 
offrendo programmi da agganciare, 
in modo che il tutto formi un pac¬ 
chetto unico. Cosa ne dite? Sarà 
facilissimo anche per i meno esper¬ 
ti: vedremo passo passo tutto quel 
che ci sarà da fare. 


2050 HH = «LC - SOI) 4 1) - ( INT 
(((LC - SOI) 4 1) / 256) * 254) 

2060 POKE SOI 4 UQ,HH 

2070 RETURN 

2100 SOI = 2364 - (NU * 2) - 2: 
POKE SOI,NU 

2101 IF AF = 1 THEN RETURN 

2102 IF AF = 0 THEN AF = 1 

2103 IF NU = 2 AND NB = 1 THEN 
RETURN 

2105 IF NB = 0 THEN POKE SOI 4 
1,0: POKE SOI 4 3,0: POKE SOI 4 
2,(NU * 2) 4 2: RETURN 

2106 NB = NB 4 1 : GOSUB 2000:NB = 
NB - 1 

2110 RETUW4 

2300 LOC = L0C - 1 : POKE 
LOC,0:BYTE = BYTE - (BYTE > 0): 
H6R : R0T= 0: SCALE= 1: HC0L0R= 
3 

2301 LL = FRE (0) 

2303 GOSUB 2100 

2305 C(l) = 0:C(2) = 0:C<3) = 0:N 
= 0 

2308 D = INT (SOI / 254)sT = D * 
256:SM = SOI - T 

2310 POKE 232,SM: POKE 233,D: 

DRAU NB 4 1 AT 139,79 

2325 DX = XXfBYTE - BE - DiOLDY = 
YY(BYTE - BE - 1):X = XX(BYTE - 
BE - 1):Y = YY(BYTE - BE - 1) 

2327 IF LF < ) 1 AND K9 / 2 = 

INT (K9 / 2) THEN DX = XXfBYTE 
- BE - 2)iOLDY = YY(BYTE - BE - 
2):X = XXfBYTE - BE - 2):Y = 
YY(BYTE - BE - 2) 

2329 GOTO 199 

2330 IF (K9 / 2 = INT <K9 / 2) 



















Dunque, inserito il dischetto, bat¬ 
tuto il RUN MENU, e scelta da me¬ 
nù l’unica opzione presente per il 
momento (a parte quella di smette¬ 
re), lo schermo chiederà quante fi¬ 
gure prevediamo di conservare nel¬ 
la tavola. Fornita la risposta, si pas¬ 
sa al tavolo da disegno: compare un 
puntino al centro dello schermo. 
Sotto compaiono alcune scritte, e in 
basso a destra lampeggia un NO, 
vicino alla dicitura PLOT. 

Ebbene, schiacciando la P, il NO 
non lampeggia più e diventa un SI. 
Provate. Provate anche a schiac¬ 
ciare ora, due o tre volte, il tasto I, 
poi due o tre volte il tasto U, poi il 
tasto K. Sullo schermo, un punto 
per volta, si disegna una linea, che 
prima sale in verticale (tasto I), poi 


AND KK = 215) m K8 = 215 THEN 
2340 

2335 1F K9 / 2 < > 1NT <K? / 2) 
THEN 2340 
2338 RETURN 
2340 ON K9 GOTO 

2370.2399.2350.2399.2350.2399.23 
70,2399 

2350 C(N) = 0:Y = 0LDY - 1: 60SUB 
580: RETURN 

2370 C(N) = 2:Y = OLDY ♦ 1: G0SUB 
580: RETURN 

2399 G0SUB 2500: GOTO 200 

2400 HGR : R0T= 0: SCALE= 1: 
HC0L0R= 3: POKE LOC,0: P0KE 
232,SM: POKE 233,Di DRAU'NB ♦ 1 
AT 139,79 

2410 RETURN 
2500 0N K9 / 2 GOTO 
2510,2520,2530,2540 
2510 X = DX - 1:C(N) = 1: GOSUB 
560: RETURN 

2520 Y = OLDY - 1:C(N) = 0: GOSUB 
560: RETURN 

2530 X = DX ♦ 1:C(N) = 3: GOSUB 
560: RETURN 

2540 Y = OLDY ♦ 1:C(N) = 2: GOSUB 
560: RETURN 
2730 0N K8 GOTO 

2370.2740.2350.2740.2350.2740.23 
70,2740 

2740 RETURN 

3000 IF K9 = 1 MD (KEY > 201 MD 
KEY < 205) THEN 3010 

3001 IF K9 = 3 MD <KEY > 201 AND 
KEY < 205) THEN 3020 

3002 IF K9 = 5 MD (KEY > 201 MD 
KEY < 205) THEN 3030 


va in diagonale verso sinistra (tasto 
U), poi gira a destra (tasto K)... Ave¬ 
te compreso perfettamente: i tasti I, 
J, M e K provvedono al movimento 
nelle quattro direzioni cardinali, 
mentre i tasti U, N, < e O assicura¬ 
no il movimento nelle quattro dire¬ 
zioni diagonali, come è indicato an¬ 
che in Fig. 1, e come è ricordato 
dalla scritta che vedete sullo scher¬ 
mo, sotto la figura che state dise¬ 
gnando, dove gli otto tasti sono le¬ 
gati alle iniziali di nord, sud, nord- 
ovest, ecc. 

Vediamo gli altri comandi possi¬ 
bili: 

P = accende o spegne il traccia¬ 
mento, in modo da poter interrom¬ 
pere la linea e riprenderla, volendo, 
un po’ più in là. 


a) Batti K •• i 

b) Batti K 

-4- 

c) Batti K 

(non si vede: è sopra un altro punto) 

d) spegni il plot: batti P 

e) Batti K •.... 

f) accendi il plot: batti P 

g) Batti K •••••• 

Figura 2. La sequenza corretta 
per l’attraversamento di linee. 


3003 IF K9 = 7 AND (KEY > 201 MD 
KEY ( 205) THEN 3040 

3004 IF (K9 = 7 OR K9 = 1) AND 
(KEY = 201 OR KEY = 205) THEN 
OLDY = OLDY ♦ 1 : GOTO 899 

3006 IF <K9 = 3 OR K9 = 5) AND 
(KEY = 201 OR KEY = 205) THEN 
OLDY = OLDY - 1 : GOTO 899 
3008 GOTO 855 

3010 DX = DX + 2:Y = Y + 1: GOTO 
899 

3020 DX = DX - 2:Y = Y - 1: GOTO 
899 

3030 DX = DX + 2:Y = Y - 1 : GOTO 
899 

3040 DX = DX - 2:Y = Y ♦ 1: GOTO 
899 

3999 RETURN 

4800 IF TT > 1 THEN 4810 
4805 RETUIN 

4810 IF N > 1 THEN N = N - 1 
4820 RETURN 
5000 PRINT N$ 

6000 PRINT ‘A’;S0J 
7000 PRINT 'L*;(L0C ♦ 2) - ADR 
7500 PRINT ‘NUMERO FIGURE 
(PRESENTI 0 FUTURE):';NU 
8000 POKE - 16368,0: GOSUB 23000 
8002 CALL - 936: FLASH : PRINT 
■ORA RIMETTI IL 
DISCO-PROGRAftfA!': NORfttL : 
GOSUB 23000 
8010 Di = CHRi (4) 

8020 PRINT Wj'RUWlENU' 

15080 DX = DX ♦ 2:X = X - 1: GOSUB 
2: GOTO 199 

15082 DX = DX - 2:X = X ♦ 1: GOSUB 
2: GOTO 199 


15084 DX = DX - 2:X = X - 1 : GOSUB 
2: GOTO 199 

15086 DX = DX + 2:X = X + 1 : GOSUB 
2: GOTO 199 

16000 SA = C(2):C<3) = 0: GOSUB 
635: RETURN 

18999 FLASH 

19000 PRINT **: PRINT ": CALL 
- 936: VTAB 21:FA = 1: PRINT 
■HAI RAGGIUNTO 990 BYTES. IL 
LIMITE E'": PRINT *1000. A 1001 
IL PROGRAM* SALTA. FINISCI 1 

19002 PRINT 'A 1000. BATTI C 7 
VOLTE PER CONTINUARE': GOSUB 
23010: GOSUB 23010: GOSUB 
23010: GOSUB 23010: GOSUB 23010 

19003 GOSUB 23010: GOSUB 23010: 
CALL • 936 

19004 NORMAL : GOTO 170 

20000 BYTE = BT:L0C = LI: CALL - 
936 

20001 IF AF = 1 THEN AA = 1 

20010 IF NB = 0 THEN BYTE = 0 

20020 IF NB = 0 THEN L0C = 2363 

20030 GOTO 488 

23000 NORMAL 

23005 PRINT : PRINT 'QUALUNQUE 
TASTO PER CONTINUARE:': PRINT 
23010 PK = PEEK ( - 16384): IF PK 
> 12? THEN 23030 
23020 GOTO 23010 
23030 POKE - 16368,0: RETURN 
25000 IF BYTE ( 2 THEN 200 
25010 GOSUB 32000 
25020 S6 = 1 

25040 KC0L0R= 0: HPLOT DX,OLDY: 
HC0L0R=__3 
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E = cancella l’ultimo punto trae¬ 
vate. 

W = cancella gli ultimi punti trac¬ 
ciati. 

Control-F = conclude una figura 
Velia tavola, passa a quella succes¬ 
siva. 

Control-S = conclude l’intera ta¬ 
vola di figure, chiede che si sostitui¬ 
sca il dischetto con quello sul quale 
'egistrare tutta la tavola, per memo- 
'izzarla. 
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25070 OX = QXiOLDY = OY 
25080 IF KK = 3 THEN 15080 

25082 IF KK = 5 THEN 15082 

25084 IF KK = 1 THEN 15084 

25086 IF KK = 7 THEN 15086 

25090 GH = 1 
25099 GOTO 199 
31000 IF SG = 2 THEN KK = K1 

31020 IF SG = 2 THEN SG * 0 

31030 IF SG = 0 THEN 204 

31040 IF SG = 1 THEN K1 = K9 

31050 IF SG = 1 THEN K9 = KK 

31060 IF SG = 1 THEN SG = 2 

31070 GOTO 204 
320 0 0 IF N « 0 THEN 32020 
32010 IF N > 1 THEN N = N - 1 
32015 C(N) = 0: G0SUB 4800: RETURN 
32020 BYTE = BYTE - ltLOC = L0C - 
1:0(1) = CI:C<2) = C2:C<3) = 

0:N = TN 
32030 PRINT *■ 

12040 FF = 0:SV = 0:TT = 0: RETURN 

>3990 PRINT CHRI (7): POKE - 
16303,0: POKE - 16298,0: VTAB 
10:KO = PEEK (222): PRINT 
■ERRORE... L' ERRORE E' NUMERO: 
■K0: POKE - 16368,0: GOSUB 
23000: POKE - 16304,0: POKE - 
16297,0 

>3991 POKE 216,0 
>3992 0NERR GOTO 63990 
13993 IF K0 = 53 THEN 20000 
13995 IF KO = 254 THEN POKE - 
16303,0: POKE - 16298,0: GOTO 
1 

>3999 GOTO 200 



m 


>2 












La mela: una tentazione 
irresistibile. 

L'hai morsa: un’emozione 
incredibile. Cominci a 
gustarla: un sapore 
insaziabile. Tu applichi? Noi 
applichiamo. Ogni due mesi, 
in abbonamento, Applicando 
porta in casa tua la fragranza 
semplice e odorosa della 
mela. Per saperne di più. 

Per non perdere tempo. 

Per scoprire subito tutte le 
altre cose che puoi fare con la 
tua mela Apple II, Apple ///, Lisa... 



Consulenza hardware e software: 

come, cosa, quando. Listati 
collaudati da copiare: per lavorare, 
per giocare, per imparare. Test dei 
programmi in commercio: 
confronti, valutazioni, 
suggerimenti. Applicazioni degli 
altri: chi, dove, cosa. 

Prove di accessori: quali, perchè, 
quanto. Poi le rubriche: i listini 
aggiornati, il mercatino delle 
mele, chiedi un programma, 
guadagnare col computer. 
> Novità, Utilities, routine, 

spunti, suggerimenti, idee. 


Tu applkhi? 
Noi applichiamo. 



Applicando ó bimestrale. 
Per applicare con noi 
abbonati inviando il 
coupon a 
Editronica sjI,.. 

C.so Monforte 39, 

20122 Milano. 

Oppure aquistalo: 
nei migliori 
Computer Shop. 

Per dar più polpa 
alla tua mela. 


Apple è marchio registrato della Apple 
Computer Ine. di Cupertino, California. 


Gratis, se ti abboni subito! 


applicarti ^ 

I 


Un dischetto con tre utilissimi superprogrammi 
e la Facility Card Applicard che. fra gli altri vantaggi, 
darà diritto a sconfi sui programmi che verranno 
offerti da Applicando. Compila e spedisci 
subito questo tagliando a Editronica sjI, 

C.so Monforte 39, 20122 Milano. 


Sì, mi abbono! _ 

Inviatemi sei numeri di Applicando, il dischetto 
con i tre programmi gratis, e la carta Applicard. ^ 

□ Allego assegno non trasferibile di lire 30 mila intestato a 

Editronica sjI _ 

□Allego ricevuta di versamento di lire 30 mila sul conto corrente 
postale n. 19740208 intestato a Editronica sjJ.Cso Monforte 39, 
20122 Milano._ 

□ Pago fin d'ora lire 30 mila con la mia carta di credito BankAmericard 

numero_scadenza.___ 

autorizzando la Banca d'America e dltalia ad addebitare l'importo 

sul mio conto BankAmericard. 


i 


Cognome. 

Via_ 

Cap- 


.Nome _ 


.N._ 


. Città . 


Data. 


.Firma. 


























musica chi ha detto che Apple III serve solo 
per la contabilità? Questo 
programma lo trasforma in un pianoforte. 


Do re mi fa 
sull’Apple/// 


REM <C) 1983 - COPYRIGHT BY 
APPLICANDO AND INCIDER 

10 PRINT CHR$(1);:H0ME 

29 60SUB 450 

30 REM INIZIAL3ZZAZI0NE 

49 OPEN» 1,\ AUDIO' 

50 DIM K$(12),P$(12),N(12), 
R(99):R=0:V=60:M=0:L=20 


60 

FOR J=0 TO 12:READ 


K4(J):NEXT J 


70 

FOR J=0 TO )2:READ 


N(J):NEXT J 


80 

FOR J=0 T0 12:READ 


P$(J):NEXT J 


90 

REM 

ACQUISIZIONE 

100 

GET Ai 


110 

REM 

TASTI SPECIALI ? 

120 

IF A$=T 

1 AND V)0 THEN 


V=V-1: GOTO 100 

130 1F A$="2" AND V<60 THEN 
WW :G0T0 100 

340 IF A*=‘B" MD R>0 THEN 

R=R-l:PRINT , X , j:G0T0 100 

150 IF Af="3" THEN V=60:GOTO 

100 

U0 IF A$=* ' THEN PRINT'/ *j 
:G0T0 100 

170 IF A$="P" THEN GOTO 3(50 

180 IF A*="C* THEN R=0 

:G0T0 100 

190 IF A$=‘X" THEN HOME:GOTO 

100 

200 IF A*=*N" THEN GOTO 720 

210 IF A$="M* THEN GOTO 840 

215 IF A$="Z" THEN PRINT:INPiiT 

"Velocita' (l=veloce, 

20=normale, 300=lento) ? 
"|L:G0T0 1000 

220 IF A*="Q" THEN PRINT 

CHWU):H0ME:CL0SE#1:END 

230 FOR J=0 TO 12 IF A$=K«(J) 
THEN 280 

240 NEXT J 


250 IF A$=“1‘ OR A*="2" OR 

A*="3" THEN GOTO 100 
2(50 PRINT"/ " 

2.55 R(R)=0:R=R+1:IF R=99 THEN , 

PRINT CHR$(?)::R=0:G0TG 100 
270 GOTO 100 

280 R(R)=N(J):R=R+1:IF R=99 

THEN PRINT CHR*<7):R=0:6QTO 100 
290 REM SUONA LA NOTA N(J) 
300 PRINTtil :CHR4<128) :CHR$(V) ; 

310 PRINTM;CHR$<N<J)-256*1NT 

<N<J)/256));CHR»(IMT<N(J) 

72563); 

320 PRINTili ;CHRJ(L-256*lNT(L/256)) ; 

CHR$(lNT(L/256)) : 

330 PRINT A*;" ( è ;P^<J);•) *; 

340 GOTO 100 

350 REM SUONA LE NOTE 

MEMORIZZATE < R(X) ) 

360 V0L=V 

370 FOR X=0 TG R-l 

380 IF R(X)=0 THEN VOL=0 

390 PRINTM ;CHR*< 128); 

CHRKVDL); 

400 PRINTM ;CHR$(R(X)-256*1NT 

<R(X)/256));CHRI(INT<R(X) 
/256))i 

410 PRINTili ;CHR$(L-256*JNT 
(L/256));CHRf (INT(L/256)); 

411 IF M=0 THEN GOTO 42Ó 

412 FOR J=0 TO 12:IF 
R(X)=N(J) THEN GOTO 415 

413 NEXT J 

414 IF R(X)=Q THEN PRINT"/ 

■ : :G0T0 420 

415 PRINT K4(J);*( "; 

Pf(J)i") 

420 VOL=V 

430 NE<T X 

435 M=0 

440 GOTO 100 

450 REM ISTRUZIONI 

460 PRINT USING"80c“;"PIANO" 


470 

PRINT TAB(21);" U 

E 

T 

Y U" 


480 

PRINT TAB(2S);" A S 


D 

F G H J K" 


490 

PRINT 


500 

PRINT TAB(21)i" CI 

Dii 

FU 

Gii A»" 


510 

PRINT TAB(21);" C D 


E 

F G A 8 C“ 


520 

PRINT:PRINT 


USlNG"BOc‘i"C0MAND!" 


530 

PRINT TAB(IO)j'P= Suona 

la 

canzone in memoria'. 


540 

PRINT*B= Cancella l'ultima 


nota suonata" 

550 PRINT TAB(10);"C= Cancella 

1 a raeraor i a ". 

560 PR3NT"X= Cancella il video" 

570 PRINT TA8U0):"Ì= Volume al 

minimo ", 

580 PRINT"M= Carica una canzone 

dal disco’ 

590 PRINT TAB(10);"2= Regola il 
volume ", 

600 PRINT"N= Salva la canzone 
sul disco" 

610 PRINT TAB(30);"3= Metti il 
volume al massimo ", 

615 PRINT"Z= Velocita' 
(1...300)’ 

840 REM CARICA UNA CANZONE 
DAL DISCO 

850 HOME: INPUT “QUALE CANZONE ? 

“ ;N$ 

860 PREFIXS=\D1/" 

370 0PEN#2 AS INPUT, N* 

875 READIi2;R 

880 FOR X=0 TO R-l 

900 READil2jR(X) 

910 NEXT X 

930 CL0SEII2 

955 HCME 

955 M=1 
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T rasformare la tastiera del vostro Apple III in quella di un 
pianoforte? È semplice: basta usare il programma che 
riportiamo in questa pagina. Potrete così suonare in tempo 
reale mentre le note compaiono sul monitor. E una volta 
composta la melodia potrete risentirla premendo il tasto P, o 
metterla in memoria con il tasto N, in modo da poter inserire il 
motivo anche in altri programmi. 

Il menu comprende la possibilità di effettuare semplici mo¬ 
difiche per variare la velocità di esecuzione e il suo volume. 
Prima di cimentarvi con questo programma assicuratevi che il 
driver “Audio” sia inserito nel file del vostro driver. Il program¬ 
ma, così com’è scritto, prevede che solo le maiuscole possa¬ 
no rappresentare le note. Nonostante sia stato scritto in Apple 
III business basic, è piuttosto semplice modificare il listato in 
modo che possa venire accettato anche da altri computers 
dotati di capacità musicali. 


620 PRINT TAB<10); *[spazio3 = 
Rest ", 

630 PRINT"0= Fine 1 
640 PRINT CHR$(2); 

650 RETURN 
660 END 

670 REM TASTI«VALORI DELLE 

NOTE, fc NOTE 

680 DATA A,U,S,E,D,F,T,G, 

Y H U J K 

*90 '"'DATA 1944,1836,1733,1434, 
1544,1457,1376,1298,1226,2257, 
1092,1031,973 

700 0ATA , CYC# , , , DYD#YE', 

'FYFOyGVGOYAYA**, 

"B'j'C* 

710 END 

720 REM SALVATAGGI 0 SU 
DISCO DELLA CANZONE 
730 HOME:INPUT 1 CON QUALE NOME 
■;N*:1F LEN(N$)>15 THEN GOTO 
730 

735 1F N$='P3AN0 , THEN PRINT 
CHRf(7):G0T0 730 
740 PREFIX$=".DI/ 1 
750 CREATE NUDATA 
760 PREFIX$="IDI/ 1 :0PENH2 AS 
OUTPUT,N* 

765 WRITE#2;R 
770 F0R T=0 T0 R-l 
780 URJTEK2;R(T) 

790 NEXT T 

800 CL0SEH2 

810 PREFIX^'.DI/MOCK Nf 
820 HOME 
830 GOTO 100 

940 GOTO 100 

1000 IF L<1 OR L>300 THEN 
l=L:G0T0 100 
1010 GOTO 100 





Sals Informatica: 

Tutti i servizi 
per la vostra automazione. 

jnlal* 

JZDU Informatica 

Via G. D'Annunzio 2-35 — 16121 Genova tei. (010) 589.327 


Apple 


a Genova. 


La mela 

secondo Sals Informatica: 


Sistemi completi pronta consegna 
Tutti gli accessori e le periferiche 
Materiali di consumo 
Programmi per ogni esigenza 
Assistenza tecnica 
Corsi a tutti i livelli 
Consulenza 

Informazione tecnica e commerciale 
Show room 


Distribuzione per l'Italia 


tcippkz computer 


informatica 
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Flanaahan 












G \oc>" Una spericolata caccia al tesoro, 

— a nuoto, fra le insidie dei tronchi galleggianti: 
ecco un passatempo divertente 
che richiede abilità e sangue freddo. 


I tronchi 
del tesoro 


10 

REM 

*##*##*#**###**<#** 

11 

REM 

* TRONCHI 

* 

12 

REM 

* BY ALAN FOXX 

* 

13 

REM 

*(01983 COPYRIGHT* 

14 

REM 

* BY APPLICANDO 

* 

15 

REM 

* AND INCIDER 

* 

16 

REM 

******************* 

1? 

REM 



18 

REM 

Questo programma 

9!' 


perfettamente su Apple 11 e su 
Apple//e. La scheda Language, 
se accesa, provoca lievi 
difetti alla parte testo: 
meglio disinserirla. 

30 REM 

32 POKE 768,173: POKE 769,48: 

POKE 770,192: POKE 771,136: 

POKE 772,208: POKE 773,4: POKE 
774,198: POKE 775,7 
35 POKE 776,240: POKE 777,8: POKE 
778,202: POKE 779,208: POKE 
780,246: POKE 781,166: POKE 
782,6: POKE 783,76: POKE 784,0: 
POKE 785,03: POKE 786,96 
40 GA = 0:HS = 0:GT = 0 
50 7EXT : HOME : VTAB (11): H7AB 
(16): FLASH : PRINT ‘TRONCHI*: 
NORMAL : VTAB (13): HTAB (10): 
PRINT 'UR1TTEN BY ALtff FOXX" 

55 VTAB (20)SPRINT 

‘(C)1983-C0PYR1GHT APPLICANDO 
AND INCIDER* 

60 FOR D = 1 TO 200: NEXT D: 

GDSUB 1080: FOR D = 1 TO 500: 
NEXT D 

70 TEXT : HOME : PRINT 
■PREFERISCI GIOCARE CON LE 
PADDLE*: PRINT *0 CON LA 
TASTIERA? (P/T) =)";: GET Al: 
PRINT A4 

80 1F A4 = ‘7* THEN CHI = ‘K‘: 
GOTO 110 

90 1F A4 = ‘P* THEN CN4 = ‘P’i 
GOTO 110 
100 GOTO 70 

110 FOR D = 1 TO 990: NEXT D: 

POKE - 16368,0:TURNS = 3 
120 FOR 1 = 1 TO 20: POKE 6,244: 

POKE 7,1 : CALL 768 
130 POKE - 16368,0 
140 TEXT : HOME : VTAB (4): PRINT 
•TRONCHI:’: VTAB (6): PRINT ML 
GIOCO CONSISTE NELL' AFFERRARE 


I mmaginiamo di essere in Canada, 
magari sul Fraser River, trascinati dai 
vortici della corrente. Qua e là galleg¬ 
giano sacchetti pieni zeppi di dollari. Ma 
per afferrarli occorre evitare i tronchi 
d'albero galleggianti che i taglialegna 
hanno scaricato nel fiume. 

Il gioco è piacevolissimo, si disputa 
su cinque livelli di difficoltà, e dispone di 
accompagnamento musicale adegua¬ 
to, del conteggio dei punti e del record di 
giornata. In più si può giocare a scelta, 
con le paddle o con la tastiera. 


Gira perfettamente su Apple II Euro- 
plus e su Apple Ile, purché non sia ac¬ 
cesa la Language Card. Se quest’ulti- 
ma è stata invece attivata accendendo il 
computer con un dischetto compren¬ 
dente il linguaggio Integer, ciò che do¬ 
vrebbe lampeggiare (per via dell’istru¬ 
zione FLASH nel programma) non lam¬ 
peggia affatto; oppure: i punti esclama¬ 
tivi della scritta COLPITO!!!, forse an- 
ch’essi colpiti da un tronco sui puntini, 
compaiono trasformati in ineffabili mi¬ 
nuscole. Miracoli del progresso. 



IL': PRINT 'MAGGIOR NUMERO 
POSSIBILE DI SACCHI DI': PRINT 
'DOLLARI, RAPPRESENTATI DAI 
PUNTI VERDI,'i PRINT 'PRIMA CHE 
IL TEMPO FINISCA, 0* 

150 IF CW = 'K* THEN PRINT 
'PRIMA CHE UNO DEI TRONCHI TI 
COLPISCA.': PRINT 'AVANZERAI 
COSTANTENENTE. PER SPOSTARTI': 
PRINT 'A DESTRA 0 A SINISTRA 
USA I TASTI': PRINT 'CON LE 
FRECCE. ';: FLASH : PRINT 'PER 
ANDAR DIRITTO, BATTI' 

160 1F CN$ = 'K* THEN PRINT 'LA 
BARRA SPAZIO.*: NORMAL : GOTO 
210 

170 PRINT 'PRIMA CHE UNO DEI 
TRONCHI TI COLPISCA.*: PRINT 
'AVANZERAI COSTANTEMENTE. PER 
SPOSTARTI': PRINT 'A DESTRA 0 A 
SINISTRA USA LE PADDLE. CHE': 
PRINT 'PADDLE VUOI USARE, LA 0 
0 LA 1? (0/1) =>';: GET A* 

180 P = WL <A*>: 1F P > 1 THEN 
HO 

190 PRINT P 

200 PRINT : PRINT 'OGNI 5 LIVELLI 
VINCI UNA PARTITA* 

210 PRINT : PRINT *1 SACCHI VERDI 
VALGONO 15 PUNTI CIASCUNO*: 
GOSUB 1060: GOSUB 1060: 60SUB 
1060: GOSUB 1060: 1F CN* = *K* 
THEN PRINT : INPUT 'PREMI 
RETURN PER PROSEGUIRE. =>';A<: 
PRINT 

220 POKE - 16368,0:LV = LV 4 
1:CG = 0: 1F INT (LV / 5) * 5 
= LV THEN TURN = TURN 4 1 : HOME 
: FLASH : PRINT 'Itti VINTO UW 
PARTITA EXTRA!!!': NORMAL : 
GOSUB 1080 
230 TJ = 0.129 

240 GR : 1F LV > 4 THEN TJ = 

0.085 

250 C0L0R= 15: FOR I = 0 TO 39: 

HLIN 0.39 AT I: NEXT I 
260 COLOR= 0 
270 GOSUB 280: GOTO 380 
280 X3 = 5:X4 = 11:X5 = 25:X6 = 31 
290 COLOR= 15: HLIN 1,38 AT 5: 
HLIN 1,38 AT 25: HLIN 1,38 AT 
15: HLIN 1,38 AT 35: VLIN 1,38 
AT 15: VLIN 1,38 AT 25 


0 <*- 


300 \FOR C5 = 1 TO 6 
310 IF INT (LV / 2) * 2 < > 
LVOLV > 4 THEN COLOR= 0: PLOT 
X4,5: PLOT X6,25: PLOT 39 - 
X4,15: PLOT 39 - X6,35: COLOR= 
15: PLOT X3,5: PLOT X5,25: PLOT 
39 - X3,15: PLOT 39 - X5,35 
320 1F INT (LV / 2) * 2 = LV OR 
LV ) 4 THEN COLOR= 0: PLOT 
X4,5: PLOT 25,X6: PLOT 15,39 - 
X4: PLOT 39 - X6,35: COLOR= 15: 
PLOT X3,5: PLOT 25,X5: PLOT 
15,39 - X3: PLOT 39 - X5,35 
330 X4 = X4 4 1 ; 1F X4 > 38 THEN 
X4 = 2 

335 POKE 6,255 - (C5 * 10): POKE 
7,3: CALL 768 

340 X3 = X3 4 1: 1F X3 > 38 THEN 
X3 = 2 

350 X5 = X5 4 1 : IF X5 > 38 THEN 
X5 = 2 

360 X6 = X6 4 1j IF X6 > 38 THEN 

X6 s 2 

370 NEXT C5: RETURN 
380 U2 = INT (LV * 2.5) 

390 COLOR= 14: FOR UO = 1 TO U2 
400 GY = INT ( RND (1) * 34) 4 3: 

IF 6Y = 5 OR GY = 15 OR 6Y = 25 

OR GY = 35 THEN 400 
410 GX = INT ( RND (1) * 33) 4 4: 

IF GX = 15 OR GX = 25 THEN 410 

420 IF SCRN< GX,6Y) = 14 THEN 
400 

430 PLOT GX,6Y: NEXT UO 
440 COLOR= 1: VLIN 3,36 AT 0: 

VLIN 3,36 AT 39 
450 HOME 
460 REM TIME 
470 GOSUB 480: GOTO 590 
480 COLOR= 2: HLIN 0,39 AT 39 
490 COLOR= 13: PLOT 19,38:X = 

19:Y = 38 

500 IF LV < 2 THEN VTAB (23): 
PRINT 'ORA RICORDA, NON 
SBATTERE CONTRO I*: PRINT 
'TRONCHI 0 CONTRO I BORDI!!.": 
FOR D = 1 TO 2200: NEXT D 
510 HOME : PRINT '‘TEMPO*'; TAB( 
1?)j'PUNTI'j TAB( 31)j'LIVELLO 
* jLV 

520 VTAB (23): PRINT 'PRONTO...' 
530 GOSUB 1060: VTAB (23): PRINT 
■ATTENTO... 


540 GOSUB 1060: VTAB (23): POKE 
6,175: POKE 7,7: CALL 768 
550 PRINT 'VIA!!! *; TAB< 

18);SC: TAB( 23);'DA GIOCARE-) 

';TURNS:HU$ = ’H* 

570 TIME = 39.9: POKE - 16368,0 
580 RETURN 
590 UHI = ' ' 

600 IF INT (LV / 2) * 2 < > LV 
OR LV ) 4 THEN COLOR= 0: PLOT 
X4,5: PLOT X6,25: PLOT 39 - 
X4,15: PLOT 39 - X6,35; COLOR= 
15: PLOT X3,5: PLOT X5,25: PLOT 
39 - X3,15: PLOT 39 - X5,35 
610 IF INT (LV / 2) * 2 = LV OR 
LV > 4 THEN COLOR= 0: PLOT 
X4,5: PLOT 25,X6: PLOT 15,39 - 
X4: PLOT 39 - X6,35: COLOR= 15: 
PLOT X3,5: PLOT 25,X5: PLOT 
15,39 - X3: PLOT 39 - X5,35 
620 X4 = X4 4 1: IF X4 > 38 THEN 
X4 = 2 

630 X3 = X3 4 1: IF X3 ) 38 THEN 
X3 3 2 

640 X5 = X5 4 1; IF X5 ) 38 THEN 
X5 = 2 

650 X6 = X6 4 1: JF X6 > 38 THEN 
X6 = 2 

660 GOSUB 880 
670 IF CN$ = *P' THEN 710 
680 IF PEEK ( - 16384) = 149 
THEN GOSUB 940 

690 IF PEEK ( - 16384) = 136 
THEN GOSUB 1000 
700 GOTO 730 

710 IF PDL (P) ) 170 THEN GOSUB 
940 

720 IF PDL (P) < 85 THEN GOSUB 
1000 

730 TIME = TIME - TJ: COLOR= 15: 
PLOT TIME,39 

740 IF TIME ( 1 THEN HW = ’T*: 
GOTO Z2Q 

750 1F<UH$ * *L* THEN HU$ = 'H' : 
GOTO 790 

760 IF CG = > U2 THEN 860 
770 FOR D = 1 TO UB: NEXT D 
780 GOTO 590 

790 COLOR= 15: PLOT X,Y: GOSUB 
1270: FLASH : IF HW$ = *H' THEN 
PRINT 'COLPITO!!!* 

800 IF HU» = *T* THEN PRINT 'IL 

Segue a pag. 68 
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TEMPO E 7 FINITO 1 
810 NORHAL : 60SUB 1060: GOSUB 
1060 

820 TURNS = TURNS - 1 
830 IF TURNS < = 0 THEN GOSUB 
1100 

840 1F TURNS > 0 THEN GOSUB 280: 

GOSUB 480: GOTO 590 
850 GOTO 70 

860 HOME : VTAB (23): FLASH : 

PRIMI ‘BEL COLPO!!! ORA IL 
PROSSIMO LIVELLO. 1 : NORML : 
GOSUB 1060: GOSUB 1060: GOTO 
220 

870 END 
880 REM *UP‘ 

890 1F Y - 1 < 0 THEN COLOR= 13: 
PLOT X.38: COLOR= 13: PLOT 
X,38: COLOR= 15: PLOT X,Y:Y = 
38: RFNIRN 

900 1F SCRN( X,Y - 1) < =1 
THEN WH$ = "L": RETURN 
910 1F SCRN( X,Y - 1) = 14 THEN 
GOSUB 1300 

920 COLOR= 13: PLOT X,Y - 1 
930 COLOR= 15: PLOT X,Y:Y = Y - 
lì RETURN 

940 REM -MINISTRA-) 

950 IF X < 1 ) 39 THEN RETURN 
960 IF SCRN( X 4 1,Y) < = 1 
THEN m = ’L 1 : RETURN 
970 IF SCRN( X ♦ 1,Y) = 14 THEN 
GOSUB 1300 

980 COLOR= 13: PLOT X + 1,Y 
990 COLOR= 15: PLOT X,Y:X = X ♦ 

1: RETURN 

1000 REM <-DESTRA<- 
1010 IF X - 1 < 0 THEN RETURN 
1020 IF SCRN( X - l.Y) < =1 
THEN UH* = ’L 1 ! RETURN 
1030 IF SCRN( X - l.Y) = 14 THEN 
GOSUB 1300 

1040 COLOR= 13: PLOT X - 1,Y 
1050 COLOR= 15: PLOT X,Y:X = X - 
1: RETURN 

1060 FOR D = 1 TO 800: NEXT D: 
RETURN 

1080 FOR S = 1 TO 2 

1082 IF S = 1 THEN ST = 255:EN = 

1 :INC = - 5 


1083 IF S = 2 THEN EN = 255:ST = 

1 : INC = 5 

1085 FOR I = ST TO EN STEP INC: 
POKE 6,1 / 2: POKE 7,4: CALL 
768: POKE 6,1 / 3: POKE 7,4: 
CALL 768: POKE 6,1/4: POKE 
7,4: CALL 768: POKE 6,255 - I: 
POKE 7,4: CALL 768: NEXT I 
1087 NEXT S 
1090 RETURN 
1100 REM PUNTEGGIO 
1110 TEXT : HOME : VTAB <2): HTAB 
(10): PRINT 'IL TUO PUNTEGGIO 
E': 1 

1120 IF SC > HS THEN HS = SC 
1130 GT = GT 4 SC 

1140 GA = GA 4 liPCNT = 1NT (GT / 
GA) 

1150 VTAB (5): PRINT TAB< 

6);■RECORD 1 ; TAB( 25); , PUNT1" 
1160 VTAB (6): HTAB (6): PRINT 

.-.. vjaB <6). HTAB (25): 

PRINT 1 - 1 

1170 VTAB (7): PRINT TAB( 9);HS; 
TAB( 26);SC 

1180 VTAB (12): PRINT TA8< 

6)i'PART.GIOCATE'; TAB( 

20)PUNTEGGIO MEDIO" 

1190 VTAB (13): PRINT TAB( 

6);' -TAB( 

26);*. 1 

1200 VTAB (14): PRINT TAB( 
11);GA; TAB( 20);PC;' PER 
PARTITA. 1 
1205 GOSUB 1080 
1210 POKE - 16368,0 
1220 VTAB (22): INPUT 'VUOI 
GIOCARE ANCORA? (S/N) =>*;A* 
1230 LV = 0:SC = 0 
1240 IF LEFT* <A*,1) = 'S' THEN 
RETURN 

1250 IF LEFTI (Af,l) = 'N 1 THEN 
PRINT : PRINT ‘CIAO ! !" : END 
1260 GOTO 1220 

1270 FOR I = 255 TO 1 STEP - 5: 
POKE 6,1: POKE 7,1: CALL 768: 
NEXT I: RETURN 

1300 SC = SC 4 15:CG = CG 4 1: 

VTAB (23): HTAB (18): PRINT SC 
1310 B = PEEK ( - 16336) 4 PEEK 
( - 16336): RETURN 
































Slj 427 prodotti per Apple II, fra programmi e hardware, solo 59 
sono inadatti a Apple Ile. Ecco i risultati dell’esame di Applicando. 

Compatibilità vo’ 
cercando 
ch’è sì cara... 


A pple He è stato progettato in modo 
da risultare hardware e software 
compatibile con Apple II, per non creare 
problemi a coloro che desiderano pas¬ 
sare dall’ano all’altro sistema. Qualche 
piccola differenza tuttavia esiste, per al¬ 
cuni programmi o per alcune schede 
hardware. Applicando pubblica in que¬ 
ste pagine una tabella in cui sono elen¬ 
cati in ordine alfabetico i principali pro¬ 
dotti hardware e software per Apple, 
precisando quali funzionano solo con 
Apple II, quali non presentano alcun 
problema su Apple//e, quali invece pre¬ 


sentano piccole differenze, e per quali, 
infine, è (o sta per diventare) disponibile 
una nuova versione per Apple Ile. 

Nella tabella, D significa che le diffe¬ 
renze riguardano i manuali di Docu¬ 
mentazione; T che le differenze riguar¬ 
dano la Tastiera (che sull’Apple He è 
modificata); S che le differenze riguar¬ 
dano il display sullo Schermo. Per que¬ 
st’ultimo nessuna indicazione è stata 
inclusa se le differenze sono legate alla 
presenza dell’Apple 80-Column Text 
Card, se essa non è necessaria per la 
funzionalità del prodotto. 


kainil 






Nuova versione per Apple //e 
Differenze marginali su Apple //e 


Nuova versione per Apple //e 
Differenze marginali su Apple //e 



Perfetta compatibilità 




Perfetta compatibilità 


Solo Apple II 




Solo Apple II 


Programma 

Produttore 



Programma 

Produttore 


1401 Laboratory Interface 

Cam. Elect. Design UK 

X 


Apple Post, 79 

Apple 

X 

3 Mile Island 

Muse 

X 


Apple Writer, 2.0 

Apple 


64KC / 128 KD RAM 

Legend Ind. 

X 


Applegraphics, '81 

Apple 

X 

A/D - DIA Card 

Mountain Computer 

X 


Applescope -D2 

DMS Electronics UK 

X 

ABC Auctioneers Comp. 

Humac SIW Serv. UK 

X 


Applewriter Ile, '83 

Apple 


ABM, '80 

Muse 

X 


Applicard (Z-80) 

PCP! 


ABT Softkeypad and B. 

Wego Computers UK X 



Aquarius Winchester 

HAL Computer UK 


Acc. Payable 

State-of-the-Art 

X 


Arcade Machine, ‘82 

Broderbund 

X 

Acc. Receivable 

State-of-the-Art 

X 


Arithmetic Games 

SRA 

X 

Access 

Spider S/W UK X 



ASCII Express, '80 



Acclaim Accounting Syst. 

G & M Mgmt. Services UK 

X 


Assess. Pres. Math 

Reader 's Digest 

X 

Accounting Pack 

North Forty 

X 


Aztec, 82 

Datamost, Ine. 

X 

Accounting Plus, 1.4 

Software Dimensions 

X 


l( Parai lei (][PIC) 

Apple 

X 

Address Book 

Muse 

X 


Bag of Tricks, 82 

Quality Software 

X 

Adv.to Atlantis, 82 

Synergistic Software 

X 


Bandits, '82 

Sirius 

X 

Agatha 

Dr Pierre Gaussens F 

X 


Bank St. Writer 

Broderbund 


ALF Music Boards 

ALF 

X 


Barhsters Fee Note Syst. 

Crest (Off. Eqpt) UK 

X 

Alpha Plot, 82 

Beagle Bros 

X 


Best of Muse 

Muse 

X 

Alpha Syntauri Music 

Syntauri Corp. 


X 

Bill of Ouantities 

Warner Comp. Syst. UK 

X 

Apbranch Terminal Syst. 

Savi Ile AVUK X 



Bitstick Graphics Syst. 

Robocom UK X 


APM, '81 

Apple 

X 


Blood Analysis 

Croesco Comp. Serv. UK 

X 

Apple Adventure, '80 

Apple 

X 


Blythe Accounting Suite 

Blyth Computers UK 

X 

Apple Cat Modem 

Novation 

X 


Bookman 

Taunton Electronics UK 

X 

Apple Logo. 82 

Apple 

X 


Boris 

Applitek UK 

X 

Apple Mechanic 1982 

Beagle Bros. 

X 


Boston Window 

Ken Tepper 

X 

Apple Panie 

Broderbund 

X 


BPI General Ledger 1.8 

Apple 

X 

Apple Plot. 80 

Apple 

X 


BPI Inventory Ctrl 1.8 

Apple 

X 


D,T 
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Programma 

BPI Job Cost 1.8 
BPl Payroll 1.8 
Brock Accounting 
Budget & F. Reporting 
Building Services Progr. 
Bumbie Games 
Bumble Plot 
Business Graphics 

C. O.R.P. 

CCS Interfaces 
Cannonball Blitz, ‘82 
Castle Wolfenstein, '81 
CBM Business System 
CCS-Cash 

Chain Mail 
Choplifter, 82 
Citibank Gateway 
Classroom Answer 
Classroom Learning 
Client Cost AHocation 
Clothman 
Cobol, '81 
Comm-Pac, *81 
Communications Card 
Complete Graphics II, 82 
Computer Discovery 
Computer Power 
Concept 2000 Software 
Cressage Newsround 
Cross Clues, 6-500 
Crush Crumble & Chomp, 
CS - Stocktakers 
Cube Solution 
CX Multigestion 

D. J. Portfolio Èva!., 79 
Daisi - A003 

Daisi - Al02 

Daisi - Al09 gfgjtjji 

Daisi-Al 13 

Data Capture. 4.0 

Data Factory, 5.0 

Data-Plot 

Database 

Datatree, 81 Jj§||g| 

David’s Midnight Magic 
DB Master Util Pk # 1.81 
DB Master Util Pk 42,82 
DB Master, ’80 
DBase II, 2.3B ljjfij|( 
Deadline, 82 
Decisionnel Graphique 
Dentai Software 
Deniracs iSttt 

Desktop/Pian 
Dictionary. 81 
Discount Manager 
Discover BASIC 
Disk Controller -8" 

Disk Utilities jfljj - 
Dispatcher WHSt 

Dispensing Label Syst. 
DMS Barcode Printer 
DMS Barcode Reader 
DMS Plot Dot 
DMSC99 RGB Colour C. 
DOS 3.3 
DOS Boss, 81 
DOS Tool Kit 
Doublé Glazing Window 
Dow Jones News Retrieve 
DU-8 Waveiength Scan 
Dueling Digits, 82 |jj|3B 
E-Z Draw, 3.3 :JÉjJp 
Education Series 
Metri. Math ;jg8§§fg|| 


Nuova versione per Apple //e 
Differenze marginali su Apple //e 
Perfetta compatibilità 


Nuova versione per Apple //e 
Differenze marginali su Apple //e 
Perfetta compatibilità 


Apple 
Apple 
McGraw-Hill 
State-of-the-Art 
Technique UK 
The Learning Co. 

The Learning Co. 

Apple 

Dynatech Micro S/W UK 
Wego Computers UK 
Sierra On-Line 
Muse 
C.B.M. UK 

Croesco Comp. Serv. UK 
Computech UK 
Broderbund 
Gate Microsyst. UK 
Houghton-Mifflin 
Sterling Swift 
Datron Software UK 
Taunton Electronics UK 

Apple 

Apple 

Penguin S/W 
SRA 

McGraw-Hill 
Stallion Comp. Syst. UK 
Cressage Comp Serv. UK 
SRA 

Croesco Comp. Serv. UK 

Muse 

Controle X 

Apple 

Interactive Struc. 
Interactive Struc. 
Interactive Struc. 
Interactive Struc. 
Southeastern S/W 
Micro Lab 
Muse 

Style System UK 
Apple 

Broderbund 
Stoneware, Ine. 
Stoneware, Ine. 
Stoneware, Ine. 
Ashton-Tate 
Infocom 

Adda Marketing F 
Attar Computers UK 
C.R. Pym UK 

Sierra On-Line 
Northern Computers UK 
Sterling Swift 
Sorrento Valley 
Computech UK 
ALS 

Bedford Micro Centre UK 
DMS Electronics UK 
DMS Electronics UK 
DMS Electronics UK 
DMS Electronics UK 
Apple 

Beagle Bros. 

Apple 

Micro Applecations UK 
Apple 

DREW Scientif. UK 

Broderbund 

Sirius 

Milton-Bradley 
Sterling Swift 


Solo Apple II 

Solo Apple II 

Produttore 

Programma 


Produttore 

X 

Elementary Math 

Muse 


X 

Elementary My Dear 

Apple 



X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 


Z-80 

D 


D,T 


Z-80 

S 

S,T 


ELT 8 Interfacing Progr. 
Empire I, 1.3 
Energy Search 
Enterprise Sandwich 
Ernie's Quiz 
Exec Briefing Sys, 81 
Executive Secretary IV 
Faci Track, 6-1450 
Feed Formulation Syst. 

File Access 
Financial Accounts 
Financial Controller 
Firefiy 

First Class Mail, 82 
Flexitext 

Flight Simulator, 80 
Format II, 82 
Formletter 
Fortran, 77 
Frazzle, 82 
General Ledger 
General Manager, 81 
Gertrude ’s Puzzles 
Gertrude ’s Secrets , 
Gestion 4 Modules 
Gestion de Projet 
Gipsi Paye 

Graforth, 82 |||||jjl 

Gran Prix fljjllp 

Graphics Interface 
Graphics Magicìan 
Graphpack 
Graudesphi 
Gribouìlle 
Gsioc Card 

Hand-hofding Basic, 81 
Hardware Clock Card 
Heat Transfert Package 
High Speed Serial 
Higher Text II |fjjj( 
Home Accountant, 2.01 
Host Hotel System 
Hosys 
Hotel Billìng 
How to BASIC 
HPLC Analysis and Cntrl 
Hypergraphics 
ICE Winchester Subsyst. 
IMCA Accounting 
Incomplete Records Syst ; 
Incredible Jack, 82 
Instant Zoo 

Intr. Data Proc. -§jf|j|l 
Inventory Control 
Investment Pack 


IOR 
Joyport 

Juggles Rainbow 
Kabul Spy, 81 
Keel Resort Hotel Syst. 
Keyboarding Academic 


S, D 

T. D 
T 


Kitchen Design ÉKjB 
Knights of Diamond, 82 
Know Your Apple 
L enfant et l’Ordinateur 

lc.c. Form mmmm 

Labyrinth, 82 |jjil 
Letter Perfect, 5.0?jgfÈ$ 
Usa, 2.5 WjgS 

Loadman 

Logifiche SjljJJj 


Saville AV UK 
Edu-Ware 
McGraw-Hill 
McGraw-Hill 
Children’s TV 
Professional S/W 
Sof/Sys, Ine. 

SRA 

Dewco info. Sys. UK 
Microtech Comps. UK 
Computech UK 
Systematics Intl. UK 
Muse 

Continental 
Forester S/W UK 
Sublogic 

X 

Muse 

Apple 

Muse Software 
State-of-the-Art 
Sierra On-Une 
The Learning Co. 

The Learning Co. 

BUS F 
Lardennois F 
SAARI F 

Muse X 

Cai. Comp. Sys. 

Penguin 

Computer Science UK 
Apeas F 
MLLE HOD F 
Anarchem UK 
Apple 

Mountain Hardware 
Celtip Stars Micros. UK 
Apple 

Synergistic S/W 

Continental 

C.R. Pymm UK 

DSA Informatique F 

Lakeland Comp. Serv. UK 

Sterling Swift 

Drew Scientif. UK 

McGraw-Hill 

ICE UK 

South. Comp. Syst. UK 
DMS Knightbridge UK 
Business Solutions 
Children's TV 
McGraw-Hill 
State-of-the-Art 
McGraw-Hill 

Bedford Micro Centre UK 
Bedford Micro Centre UK 
Sirius X 

The Learning Co. 

Sirius 

Keel Data Syst. UK 
McGraw-Hill 

Aids Data Systems UK X 

DMS Electronics UK 

Muse 
G Blanc F 

Leicester Comp. Cent. UK 
Broderbund X 

LSR Enterprises 

Taunton Electronics UK 
PEYLA F 


S,T 

T 

T 


T 

D 
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Programma 

Magic Spells, 81 
Magic Window, 82 
MagiCalc 
Mailman 
Marauder, '82 
Mask of thè Sun, 82 
Master Type. 81 

Match 

Math Leve! A. 6-1302 
Math LeveI B. 6-1304 
Math LeveI C, 6-7306 
Math Package 
Math Strategy, 81 : -J 

Megastor il SD 
Megastor II DD 
Micro Planner 
Micro Time Series 
Micro-Courier II, 81 
Micrecourse 
MicroDiscovery, 6-910 
Microfichier 
Microfinesse 
Mtcromodem J[ 

Microscript 
Mix and Match 
MMS - Memory Manag. 
Model 2000 Card Read. 
Moptown, '81 
Mountain Music Sys. 

Multi pian, 1.04 
Multiskan Data Capture 
Music Retai!. Stock Cntrl. 
Night Mission Pinball, 82 
Nominai Ledger System 
Nominai Leger (80-Col.) 

OCL Data Entry Pad 
Omnis Info Management Pr. 
Omnivision 

Orbit Ledger Utilities J[ 

Orbit G/L Updater}[ 

Orbit G/L V100U2.0000 
Orbit Invoicer Updater/ll 
Orbit Invoicer VI00.0003 
Orbit P/L V100112.000 
Orbit P/L Updater/ll 
Orbit S/L VI001/2.0000 
Orbit Ledger Create UT. Il 
Orbit Stock 1.0 
Orbit Stock 1.4 Create UT. 
Orbit Stock 1.4 VI 001 
P.I.P.S. 

Paccs 
Paralay 

ParsileI Printer Int. 

Pascal Anim Tools, 81 
Pascal Bus. Sys. 

Pascal Foundation 
Pascal Utilities 
Pascal, 1.1 
Pascalform 
Patcost/C 


Nuova versione per Apple //e 
Differenze marginali su Apple //e 
Perfetta compatibilità 

Solo Apple II 
Produttore 


Nuova versione per Apple //e 
Differenze marginali su Apple //e 
Perfetta compatibilità 


Payroll /// 

Payroll 200 
Payroll and Personnel 
Paystyle 2000 
Pear System 

Person. Finance Mgr, 81 
Personal Keyboarding 
Personal Tax Pian, 1.0 
PFS, Rev. F 
PFS: Graph 
PFS: Repori 
Pie Wrìter, *82 


Apple X 

Artsci D, T 

Artsci > 

Taunton Electronics UK X 

Sierra On-Une X 

Ultrasoft X 

Lightning Software 
McGraw-Hill 
SRA 
SRA 
SRA 

Harper & Row 
Apple 
Vlasak UK 
Vlasak UK 

Micro Planning Serv. UK 
McGraw-Hill 

Houghton-Miffìin 
SRA 

P-A Blanc F 
P-E Consulting Grp. UK 
D.C. Hayes 

W London Microcentre UK 
Children 's TV 
U-Micros. UK 
Wego Computers UK 
Apple 

Mountain Comp. 

Microsoft 

DREW Scientif. UK 
Second City S/W UK 
Sublogic 
Jarman Syst. UK 
Style Systems UK 
Lynx Computers UK 
Blyth Computers UK 
Data Efficiency UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 
Vlasak UK 

Microtechnic Comps. UK 
Croesco Comp. Serv. UK 
Taunton Electronics UK 
Apple 
Apple 

Broderbund X 

Style Systems UK X 

Microtechnic Comps. UK X 

Apple X 

BUSF S,T 

Microsoft Struct. Cont. S 

Computech UK 
Dewco Info. Sys. UK 
Deverill Computer Serv. 

Spot Comp. Syst. UK 
Jarman Syst. UK 
Style System UK 
Intelcom 
Apple 

McGraw-Hill D 

Aardvark X 

Software Pub. > 

Software Pub. X 

Software Pub. X 

Hayden D,T 


X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 


Programma 

PILOT Anim. Tools , 81 

PILOT, 80 

Piste 

Pkaso Interface 
Point of Sale Software 
Portatei Colour Monitors 
Pot Green 

Pot Green Snooker Cntrl 
Presfax 100 Keypad 
Printermate 

Printers Quotation Syst. 
Probfem Solving 
Product Invoicmg Syst. 
Prof. Supertext 
Profit & Loss 
Proj. Ctrl. 

Project Cost Recording 
Prolog II 
Prom Blaster 
Property Management 
Psnom 
PSORT. 1.0 
Purchasing Accounting 
Oualman 

Quickfile //e, 82 ^jj§§f 
Ramdisk 320 
Ramex 128 
Raster Blaster, '81 
Regrouping 

Restaurant Billing Progr. 
Retrieve 
Robot Wars, 81 
Rocky s Boots 
RomWriter 

Sales Accounting Syst. 

Sales Invoicing 

Sales Ledger 

Saturn 128K Ramcard 

Savvy 

Savvy 

Screenwriter II, '82 
Scribe System 
Script II, 81 
Senior Analyst, 81 
Sensibfe Spellar, 3.0G 
Serpentine, 82 
ShadowVet 
Shares Analysis Progr. 
Shell Games, 79 
Showcase 1.4 
Signai Analyser 
Silentype Printer 
Skeleton IV 

Smeli Businnes Account 
Small Businnes Invoic. 
Smartterm 
Snack Attack, 81 
Sneakers, 81 
Softcard (2-80) 

Special Effects, 81 
Specsystem 
Speed Reader, 81 
Spelling Strategy, 81 
Spot Serial Card 
Spotlight 
Star Blazer, 82 
Statsease 

Stellation 6809 Proc. Card 

Stock Recording System 

Stockfile 

Stockmaker 

Stockseller 

Storage Scope 85A 

Storeman 

Strobe 100 Dig. Plotter 


Solo Apple II 
Produttore 

Apple 

Apple 

Patrick le Roy F 
Interactive Struc. 

Creating Systems UK 
Portatei Conversions UK X 

Kennet Comp. Serv. UK X 

Walton Micros. UK 
DMS Electronics UK 
ALS 

Nibbles Systems UK 

Reader s Digest 

Jarman Syst. UK 

Muse X 

McGraw-Hill 

McGraw-Hill 

Warner Comp. Syst. UK 

MM. Van Kaneghan Colmerà 

Apparat 

Fletcher Dennys Syst. UK 

Deverill Comp. Serv. UK 

Apple X 

Jarman Syst. UK 

Taunton Electronics UK 

Apple 

Axlon 

Data Efficiency UK X 

Budgeco 

McGraw-Hill 

Lakeland Comp. Serv. UK 

Datatech UK 

Muse 

The Leaming Co. 

Mountain Computer 

Jarman Syst. UK 

State-of-the-Art 

Micro Applecations UK 

Pete & Pam Comps. UK X 

Excalibur 

Excalibur 

Sierra On-Line 

DatronlEcotech UK X 

Apple 

Apple 

Sensible S/W 
Broderbund 

Scott Instr. X 

Microtech Comps. UK 
Apple X 

Rainbow S/W UK X 

Cybermation UK 
Apple 

Microsoft Struct. Cont. * 
Lakeland Comp. Serv. UK 
Lakeland Comp. Serv. UK 
ALS 

Datamost 

Sirius 

Microsoft 

Penguin 

Albion Computer Co UK 
Apple 

Apple X 

Spot Comp. Syst. UK 
Children’s TV 

Broderbund X 

Leicester Comp. Cent 
Pete & Pam Comps. UK X 

Jarman Syst. UK 
Solidus Intl. Corp. UK 
Solidus Intl. Corp. UK 
Solidus Intl. Corp. UK 
Northwest Inst. 

Taunton Electronics UK 
Date Efficiency UK 


D,T 
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Nuova versione per Appl< 

Differenze marginali su Apple //e 

Perfetta compatibilità 

Solo Apple II 

Programma 

Produttore 


Structural Engineering 

McGraw-Hill 

X 

Structured BASIC 

U-Micros. UK X 


Suivi d'Etudes/Produci 

Lardennois F 

X 

Super Serial Card 

Apple 

X 

Super Structure 

Leicester Comp. Cent. UK X 


Super-Pilot, '82 

Apple 


Supermap, '80 

Apple 

X 

Supermon 

Leicester Comp. Cent 

X 

Supertext, '82 

Muse 


Swashbuckler, '81 

Datamost 

X 

Syslab 

Jacques Heine F 

X 

Systemics G. P. Package 
TASC, '81 

Sistematics Intl. UK 

X 

Microsoft 

X 

Tax Miser, MMCA810011 

Sunrise Software 

X 

TBM, 2.2.2 

Pascal Systems X 


The Developer 

Leicester Comp. Cent. UK 

X 

The Doctors Office 

Taunton Electronics UK X 


The Miti (MC6809) 

Stellation Two 

X 

The Optician 

Compuskill UK 

X 

Thunderclock 

Mountain Hardware 

X 

Time Manager, '80 

Microsoft 

X 

Time Zone, ‘81 

Sierra On-Line 

X 

TKISolver 

Software Arts 


Travellplan Suite 

Printronic UK 


Tubeway II, '82 

Datamost 

X 

Typing Tutor II, '81 

Microsoft 

X 

Typing Tutor II, 2.1 

Apple 

X 

U Draw II 

Muse 

X 

U-A/D Converter 

U-Micros UK 

X 

U-BCD 

U-Micros UK 

X 

U-DT -1/0 & Timer Card 

U-Micros UK 

X 

U-NET 

U-Micros. UK X 


U-Pori 8 Serial 1/0 Card 

U-Micros UK 

X 

U-RAM 128 

U-Micros. UK X 


U-Ram 16 & U-Ram 32 C. 

U-Micros UK X 


U-S232 Serial Interface 

U-Micros. UK 

X 

U-TIM-Internal Timer C. 

U-Micros. UK 

X 

U-Z80 Card for C/PM & B. 

U-Micros UK 

X 

Ultima, '81 

California Pacific 

X 

Utility City, '82 

Beagle Bros. 

X 

VBLS 

Scott Instr. 


Versa Ram Disc - Emul. 

U-Micros. UK 

X 

Versacalc 18,2.0 

Aurora Systems 

X 

Versaform, 81 

Applied S/W Tech 

X 

Vet2 

Scott Instr. 

X 

ViciCalc Templates 

Micromark UK X 


Video Library Manager 

Datron Software UK 

X 

Videocard 

ALS 

X 

Videoterm 

Videx, Ine. 

X 

Visi. Reai Estate, '81 

Apple X 


VisiCalc Utilities 

Leicester Comp. Cent. UK X 


Visicalc, 2.08 

Visicorp 

X 

Visidex, 1.02 

Visicorp 

X 

Visi file, 1.1 

Visicorp 

X 

Visi schedule, 1.05 

Visicorp 

X 

Visiterm, 1.1 

Visicorp X 


Visitrend/Plot, 1.1 

Visicorp 

X 

Voice 

Muse 

X 

Wayout 

Sirius 


Western CP/M Business 

Western Comps. UK 

X 

Winchester Disk 

Davong Systems 

X 

Wizard & Princess, '80 

Sierra On-Line 

X 

Wizardry, '81 

Sir-Tech S/W 

X 

Word Handler 

Fletcher Dennys Syst. UK 


Word Handler II, 3.5 

Silicon Valley Sys 


WordSkill, 6-3021,26 

SRA 

X 

Wordstar, 3.01 P 

Micropro 


World’s Grt Blackjack 

Apple 

X 

Xcomp 5X5 10MB Win. 

Pete & Pam Comps. UK 

X 

Z-Card 

ALS 

X 

Zarday 

Intelcom 

X 

Zoom Grafìx, '81 

Phoenix Software 

X 

Zork II, '81 

Infocom 

X 


I SISTEMI M COM 


DALL'RIVE 



Filiali- Milano Tel. 02/75451 - Torino Tel. 011/6192192 
Mestre Tel. 041/962255- Genova Tel. 010/451801 
Bologna Tel. 051/557157-Firenze Tel. 055/355841 
Roma Tel. 06/58421 - Napoli Tel. 081/660266. 

Distributori autorizzati in tutta Italia-vedi Pagine Gialle. 
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SUPPORTI MMMTKT3M. 

NZIONE AL PRIMATO TECNOLOGICO. 


Il primo nastro per 
computer è stato 
prodotto dalla 3M 
nel 1952. Un primato 
che ha consentito la 
realizzazione dei 
supporti magnetici più 
affidabili e sicuri. 

Le Diskette 3M, 
ad esempio. Omologate 
dai maggiori costruttori 
Certificate al 100%. 

Garantite 5 anni. Esporta 
in tutto il mondo. Prescelte come 
riferimento intemazionale da ECM A, 
ISO ed ANSI. Una gamma completa 
sia per le Diskette 8 pollici che per le 
Minidiskette 5 pollici e un quarto. 

Le Diskette 3M, grazie all’esclusivo 


rivestimento magnetico, 
garantiscono 
un’eccezionale resistenza 
all’usura e la massima 
affidabilità. 

La stessa affidabilità 
che offrono tutti i 
Supporti Magnetici 3M: 
Nastri per Computer, 
Dischi Magnetici, 

Data Cartridge. 

Le Diskette e i Nastri Magnetici 3M 
sono interamente fabbricati in Italia e 
questo significa immediata reperibilità 
e migliore assistenza. 

Assistenza e consulenza tecnica 
che il Cliente trova presso le 8 filiali, 
i venditori diretti e 400 distributori 3M, 
in tutta Italia. 



SISTEMI PER L'UFFICIO 3M.LA PERFEZIONE DELLA SPECIE. 



i-1 

| Desidero ricevere ulteriori informazioni i 
I sui Supporti Magnetici 3M. 

I Nome_ 

I Azienda- 


Via 


Cap_Città_ 

fi 

Ritagliare e spedire a: 

3M Italia S.p.A.-Linea Diretta- 
Casella Postale 10411/10412-20110 Milano. 
Oppure telefonare a: 02/75451 






















In queste pagine Applicando pubblica i listini prezzi aggior¬ 
nati dei prodotti Apple distribuiti dalla Iret Informatica SpA, 
Via Bovio 5, 42100 Reggio Emilia. 

Listino in vigore dal 1 aprile 1983. I prezzi non comprendo¬ 
no le spese di installazione. 


APPLE II E 


Prezzo Prezzo 
IVA esci. IVA comp. 

Apple//e . 2.399.350 2.831.233 

Unità centrale del sistema, comprensiva di: • 

Memoria da 64Kbyte RAM e 16Kbyte ROM • 

Tastiera italiana con maiuscole e minuscole • 

Interfaccia per registratore a cassette • Se¬ 
gnale di uscita video B/N e colori PAL • Soft¬ 
ware di base residente: • Monitor, Disassem¬ 
bler, BASIC esteso APPLESOFT 


ESPANSIONI 

Scheda 80 colonne . 237.000 279.660 

Permette all'Apple Ile di visualizzare i testi su 
80 colonne. 


Prezzo Prezzo 
IVA esci. IVA comp. 


INTERFACCE 


Super interfaccia seriale per Apple Ile . 352.000 415.360 

Scheda di interfaccia seriale RS232 utilizza¬ 
bile perii collegamento di stampanti e linee di 
comunicazione. (Anche per Apple II Euro- 
plus). 

Interfaccia parallela universale Apple Ile . 304.000 358.720 

Scheda di interfaccia che permette il collega¬ 
mento di unità periferiche con standard paral¬ 
lelo e Centronics. (Anche per Apple II Euro- 
plus). 

Scheda interfaccia IEEE488per Apple Ile ... 841.000 992.380 

Permette il collegamento di strumenti di misu¬ 
ra e dispositivi periferici vari che utilizzano lo 
standard di interfacciamento IEEE 488. (An¬ 
che per Apple II Europius). 


Scheda prototyping hobby per Apple Ile 52.000 61.360 

Scheda per realizzare propri circuiti da colle¬ 
gare al personal computer Apple He. (Anche 
per Apple II Europlus). 


ACCESSORI 


Scheda 80 colonne con espansione di me¬ 
moria . 522.000 615.960 

Espansione della memoria del computer Ap¬ 
ple Ile a 128Kbyte totali, e visualizzazione dei 
testi su 80 colonne. 


UNITÀ DI MEMORIA 

Disk II, drive a doppio controller . 924.000 1.090.320 

Unità di memoria per floppy disk da 5.25", con 
capacità di 140Kbyte per ogni floppy. L'unità 
è comprensiva della scheda di interfaccia per 
Apple Ile, che permette di collegare anche un 
secondo drive aggiuntivo. (L'Apple Ile per¬ 
mette il collegamento di 6 drive con controller 
e 6 drive aggiuntivi, nella configurazione mas¬ 
sima.) Collegabile anche a Apple II Europlus. 


Apple stand . 84.000 99.120 

Base di appoggio del Monitor III per consenti¬ 
re l'installazione esteticamente piacevole sul¬ 
l’Apple Ile e su Apple II Europlus. 

Borsa In vinile per Apple He (anche per Ap¬ 


ple Il Europlus) . 52.000 61.360 

Set cavi per interfaccia parallela Apple . 36.000 42.480 

DOS. 3.3 Kit He .. 135.000 159.000 

LINGUAGGI DI PROGRAMMAZIONE 

Apple Pascal ... 486.000 573.480 

Apple Fortran . 403.000 475.540 


Disk II, drive aggiuntivo . 

Unità di memoria per floppy disk da 5.25", con 

746.000 

880.280 

Super Pìlot . 

438.000 

516.840 

capacità di 140Kbyte per ogni floppy. L'unità 
aggiuntiva necessita del controller, fornito 
nella confezione del disk H drive a doppio 



Apple Logo . 

352.000 

415.360 


controller. Collegabile anche a Apple H Euro¬ 
plus. 



DOCUMENTAZIONE 





* Manuale utente dell’Apple He In Italiano .... 

41.000 

48.380 

PERIFERICHE 



Manuale di introduzione al linguaggio Ap¬ 
plesoft He (in inglese) 1 . 

51.000 

60.180 

Hand controller He . 

Due manopole di controllo comprensive di 

84.000 

99.120 

Manuale del linguaggio Applesoft He (in 



pulsante. 



inglese) 2 . 

61.000 

71.980 

Joystick He . 

135.000 

159.300 

Set di manuali Applesoft He (i due prece¬ 



Leva di comando per fornire direttamente al 
computer Apple He input di posizionamenti in 



denti, in inglese) . 

98.000 

115.640 

71.980 

coordinate X-Y. 



Manuale del sistema Apple He (in inglese) 3 

61.000 

Numeric KeypadHe . 

Tastierino numerico per Apple He, completo 

371.000 

437.780 

The Applesoft Tutorial in italiano 1 . 

Applesoft II Reference Manual In italiano? 

21.000 

24.780 

ed interfacciato. 



21.000 

24.780 
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Prezzo Prezzo 
IVA esci. IVA comp . 


Prezzo Prezzo 
IVA esci. IVA comp. 


Apple II Reference Marmai in italiano r 3 . 42.000 49.560 

Apple Integer Basic Programming Man uà! 

in italiano . 15.000 17.700 

* Disk II, Sistema Operativo DOS 3.3 . 21.000 24.780 

* Apple Pascal Reference Manual (in ingle- 

se ) .. 39.000 46.020 

* Apple Pascal Operating System Manual 

(m inglese) . 51.000 60.180 

* Apple Fortran Manual (in inglese) . 51.000 60.180 

* Apple Pilot Reference Manual (in inglese) 36.000 42.480 

* Apple Pilot Editors Manual (in inglese) . 31.000 36.580 

* Graphics Tablet Manual (in inglese) . 20.000 23.600 

* Silentype Manual (in inglese) . 6.000 7.080 

6502 Hardware Manual (in inglese) . 30.000 35.400 

6502 Programming Manual (in inglese) . 30.000 35.400 


* Manuali già inclusi nel prezzo delle singole parti , 
ma ordinabili anche separatamente. 

Le note 1, 2 e 3 indicano gli stessi manuali, 
in versione inglese o italiana. 


APPLE III 


Prezzo Prezzo 
IVA esci. IVA comp. 

Apple///(128Kb) . 5.036.350 5.942.893 

Unità centrale del sistema di elaborazione 
professionale Apple III, comprensivo di: • 

Memoria da 128 Kb RAM • Tastiera con 
maiuscole e minuscole e tastierino numerico 
• Disk drive integrato per floppy disk 5.25" da 
140 Kb • Controller per ulteriori 3 drive ag¬ 
giuntivi esterni • Interfaccia seriale RS 232 e 
per stampante Silentype • Segnale di uscita 
video B/N e a colori RGB • Sistema operativo 
SOS comprensivo di Utilities di sistema. 

Apple III (256 Kb) . 5.876.350 6.934.093 

Versione potenziata dell’unità centrale Apple 
III con 256 Kb di memoria interna RAM. 


ESPANSIONI 

256Kb Upgrade Kit . 1.848.000 2.180.640 

Kit di espansione di memoria per convertire 
un Apple III (128 Kb) in un Apple III (256 Kb). 

Softcard/ll . 908.000 1.071.440 

Scheda CPU che permette di utilizzare il si¬ 
stema operativo CP/M sul computer Apple III. 

UNITÀ DI MEMORIA 

Dlsklll . 

Drive aggiuntivo per floppy da 5.25”. Capaci¬ 


tà di 140 Kb per floppy. È possibile collegare 
fino a 3 Disk III per ogni Apple III. 

Pro Fi le III . 3.776.000 4.455.680 

Unità di memoria aggiuntiva basata su disco 
rigido (Winchester) da 5 Mega byte. L'unità è 
completa di interfaccia per Apple III. È possi¬ 
bile collegare fino a 4 ProFile per ogni Apple 
III per un totale di 20 Mega byte in linea. 


PERIFERICHE 

Cursor/ll . 135.000 159.300 

Leva di comando per fornire direttamente al 
computer Apple III input di posizionamenti in 
coordinate X-Y. 


INTERFACCE 


Interfaccia parallela universale Apple III . 454.000 535.720 

Scheda di interfaccia che permette il collega¬ 
mento con standard parallelo di unità perife¬ 
riche. 

Scheda prototyping per Apple III . 103.000 121.540 

Scheda per realizzare propri circuiti da colle¬ 
gare al computer Apple III. 


ACCESSORI 


Borsa in vinile per Apple III . 84.000 99.120 

Kit conversione Silentype II-Silentype III.... 84.000 99.120 

Modem eliminator cable . 14.000 16.520 

Set cavi per interfaccia parallela Apple . 36.000 42.480 

LINGUAGGI DI PROGRAMMAZIONE APPLE 

Apple III Business Basic . 253.000 298.540 

Pascami . 486.000 573.480 

DOCUMENTAZIONE 

* Business Basic Manual . 61.000 71.980 

* Pascal Programming Manuals . 17.000 20.060 

* PascalIntroduction Manual . 40.000 47.200 

* Pascal Programming Preparation Tools... 40.000 47.200 


* Manuali già inclusi nel prezzo delle singole parti, 
ma ordinabili anche separatamente. 


UNITÀ VIDEO 

Monitor/// . 484.000 571.120 

Video a 12 pollici, fosfori verdi, per Apple Ile e 
per Apple III. 

180.000 212.400 


755.000 890.900 


Monitor fosfori verdi 9 


75 
































quanto 


Prezzo Prezzo 
IVA esci. IVA comp. 


Prezzo Prezzo 
IVA esci. IVA comp. 


Monitor Philips fosfori gialli . 352.000 425.360 


ACCESSORI PER APPLE // EUROPLUS 



UNITÀ DI SCRITTURA 


I 

ESPANSIONI 


Silentypel/e . 

Stampante termica da 80 colonne con capa¬ 
cità grafiche. La confezione comprende l’in¬ 
terfaccia e i cavi di collegamento all 'Apple Ile. 

Silentypelll . 

Stampante termica da 80 colonne con capa¬ 
cità grafiche. 

Stampante ad aghi Apple . 

Unità di stampa che permette di utilizzare fogli 
singoli o modulo continuo. Stampa in norma¬ 
le, compresso, grassetto e proporzionale, 
inoltre permette la stampa di grafici ad alta 
risoluzione. In stampa normale permette di 
ottenere 80 colonne. La velocità è di 120 ca¬ 
ratteri al secondo e il percorso è bidirezionale 
ottimizzato. L'interfaccia richiesta è di tipo pa¬ 
rallelo (cod. 115-02). È necessario ordinare il 
set di cavi (cod. 122-05). 

Stampante a margherita Apple . 3.878.000 4.576.040 

Per ottenere stampe di documenti e corri¬ 
spondenza di elevata qualità. L'unità permet¬ 
te di utilizzare fogli singoli o modulo continuo. 

La spaziatura fra i caratteri è selezionabile: 

10, 12, 15 caratteri per pollice. La velocità è di 


40 caratteri al secondo e il percorso è bidire¬ 
zionale ottimizzato. L'interfaccia richiesta 
(cod. 115-01) è di tipo seriale (già compresa 
nell’Apple III, ma non nell’Apple Ile). 

Stampante IR ET 80 Colonne Parallela . 1.110.000 1.298.000 

Stampante IRET132 Colonne Parallela . 1.552.000 1.831.360 

MATERIALE DI CONSUMO 

Confezione 10 dischetti Apple . 103.000 121.540 

Raccoglitori per dischetti (50 fogli) . 68.000 80.240 

Carta termica per Silentype (10 rotoli) . 84.000 99.120 

Confezione 6 nastri per stampante marghe¬ 
rita Apple . 135.000 159.300 

6 nastri multi strike per stampante ad aghi 

Apple . 135.000 159.300 

6 nastri in tessuto per stampante ad aghi 

Apple . 135.000 159.300 

Confezione 6 margherite tipo P.E.12 . 170.000 200.600 

Margherita tipo Prestige Elite 12. 

Confezione 6 margherite tipo C. 10 . 170. 000 200.600 

Margherita tipo Courier 10. 

Confezione 6 margherite tipo G. 15 . 170.000 200. 600 

Margherita tipo Gothic 15. 

Confezione 6 margherite tipo B.P. .. 170.000 200. 600 

Margherita tipo Boldface Proporzionale. 
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Language Card (Scheda memoria 16k) . 352.000 415.360 

PERIFERICHE 

Tavoletta grafica interattiva . 1.452.000 1.713.360 

INTERFACCE 

Interfaccia Apple standard Centronics . 333.000 392.940 

Scheda Apple per colore PAL . 237.000 279.660 

MISCELLANEA 

Hand Controller . 84.000 99.120 

Joystick . 135.000 159.300 

Numeric keypad . 371.000 437.780 

ESPANSIONI DEL SISTEMA 


Scheda Z80 Microsoft per Sistema Operati¬ 


vo CP/M . 811.000 956.980 

Cobol 80 Microsoft per Scheda Z80 . 1.562.000 1.843.160 

Fortran 80 Microsoft per Scheda Z80 . 406.000 479.080 

Basic Compiler Microsoft per Scheda Z80 769. 000 907.420 

ALDS Microsoft (sistema di sviluppo per pro¬ 
grammi Assembler 8080, Z80 e 6502) . 260.000 306.800 

Scheda orologio calendario CCS . 250.000 295.000 

Arìthmetic Processor CCS . 993.000 1.171.740 

Scheda espansione Maxi RAM 16K BASIC 269.000 317.420 

TASC Microsoft (compilatore Applesoft) . 364.000 429.520 

PERIFERICHE 


Mega-Disk Doppio drive 5", con controller .... 2.998.000 3.537.640 


Doppio Drive 8 " S.D. Doppia faccia . 3.268.000 3.856.240 

Doppio Drive 8 D.D. Doppia faccia con con¬ 
troller . 4.240.000 5.003.200 

INTERFACCE 

Modulatore UHF . 73.000 86.140 

Interfaccia IRET Centronics con grafica per 

739 . 190.000 224.200 

Interfaccia IRET standard Centronics . 140.000 165.200 


723.000 853.140 

656.000 774.080 

1.225.000 1.445.500 











































Prezzo 

Prezzo 


Prezzo 

Prezzo 


IVA esci. 

IVA comp. 


IVA esci. 

IVA comp. 

Interfaccia CCS parallela . 

260.000 

306.800 

stale collegabile ad Apple Writer III . 

304.000 

358.720 

Interfaccia CCS seriale RS232-C . 

309.000 

364.620 

Quick Fileni . 

336.000 

396.480 

Interfaccia Seriale sincrona CCS . 

427.000 

503.860 

Apple Writer III Sistema di videoscrittura . 

438.000 

516.840 

Interfaccia Centronics con Buffer SET . 

400.000 

472.000 

Business graphics/// . 

352.000 

415.360 

Scheda CCS GPIB IEEE 488 . 

585.000 

690.300 

Access !// . 

304.000 

358.720 

Scheda CCS A/D con verter BCD . 

Controller per Drive 8" FAST singola densità 

237.000 

279.660 

Script III . 

Senior analisti// . 

253.000 

707.000 

298.540 

834.260 

402.000 

474.360 

Controller + Software per compatibilità IBM 
su 8” singola densità . 

770.000 

908.600 

Pascal Utility Library/// . 

151.000 

178.180 

^ MISCELLANEA 



SOFTWARE 











Personal Data Base 5". 

66.000 

77.880 

Alimentatore tampone . 

290.000 

342.200 

Personal Data Base 8" . 

75.000 

88.500 

DOCUMENTAZIONE 



Personal Filing System per Apple II . 

217.000 

256.060 

User Manual and Report Pascal . 

29.000 

34.220 

Personal Report System per Apple II . 

217.000 

256.060 

Problem Solving Usìng Pascal . 

23.000 

27.140 

Software grafico per Centronics 739 . 

73.000 

86.140 

Some Common Basic Programs . 

33.000 

38.940 

Programming AIDS 3-3 . 

179.000 

211.220 

Apple Writer II e Sistema di videoscrittura . 

403.000 

475.540 

Personal Filing System per Apple III . 

258.000 

304.440 

Quick File II e Gestione archivi ed indirizzari ... 

202.000 

238.360 

Personal Report System per Apple/// . 

225.000 

256.500 

Business Graphics II Sistema di elaborazio¬ 

352.000 

415.360 

PTERO (Cominfor) Word processing . 

190.000 

224.200 

ne e creazione di grafici . 

217.000 

256.060 



P.F.S. Graphics II.. . 

Multiplan per Apple He Sistema di calcolo 
basato su foglio elettronico suddiviso in ele¬ 
menti mutuamente correiabili . 

598.000 

705.640 

304.000 

358.720 

P.F.S. GraphicsIII . 




P.F.S. Data Saver . 

104.000 

122.720 

Apple Project Manager . 

470.000 

554.600 




Hand Hold Basic . 

237.000 

279.660 

Personal Filing System per Apple Ile . 

217.000 

256.060 

Pascal Animation Tool . 

151.000 

178.180 

Personal Report System per Apple Ile . 

217.000 

256.060 

Personal Finance . 

151.000 

178.180 

Personal Filing System Graph per Apple Ile 

217.000 

256.060 

Supermap . 

51.000 

61.360 

Pro Writer (solo per Apple II Europlus) . 

124.000 

146.320 

VT-IOOEmulator . 

151.000 

178.180 

CCA Data Management System Apple II 
plus . 

254.000 

299.720 

World 1 s Black Jack . 

70.000 

83.780 

Sistema perla gestione generalizzata di infor¬ 
mazioni. Memorizza dati di qualsiasi tipo, 



Senior Analisti! . 

454.000 

535.720 

consentendo la ricerca automatica ed even¬ 
tuale modifica. 



Script II . 

202.000 

238.360 




Speed Reader . 

151.000 

178.180 

Desk Top Pian II Apple II plus . 

Sistema semplice e rapido per organizzare il 

478.000 

564.040 

Moptown . 

103.000 

121.540 

lavoro di analisi finanziaria, preparazione di 
budget e programmazione della gestione. 



Magic Speli . 

103.000 

121.540 

Sono previste stampe da allegare alle relazio¬ 
ni e rappresentazioni grafiche necessarie per 



Datatree . 

253.000 

298.540 

una maggiore chiarezza. 



Visleale/// . 

486.000 

573.480 

Desk Top Pian III Apple III . 

Versione potenziata del Desk Top Pian II, per 

573.000 

676.140 

Mail List Manager Gestione indirizzario po- 



le maggiori capacità di Apple III. 
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Visi Cale Apple Ile . 

Sistema di simulazione basato su una matrice 
di 64 x254 elementi correi abili con metodi di 
calcolo multirelazionale. La matrice è un foglio 
di lavoro, che consente di osservare dinami¬ 
camente le conseguenze delle proprie deci¬ 
sioni, prima di renderle esecutive: poiché con 
VisiCalc è possibile rispondere in ogni mo¬ 
mento alla domanda «Cosa succederebbe 
se...?». Ideale per pianificazioni e program¬ 
mazioni aziendali, giustifica anche da solo 
l'acquisto di un personal computer anche nel¬ 
le applicazioni scientifiche e di calcolo in ge¬ 
nerale. 

VisiCalc Apple U . 

VisiCalc Advanced Version Apple III . 

Versione del VisiCalc potenziata per le mag¬ 
giori caratteristiche di Apple III. 

VisiCalc Business Forecasting Model Ap¬ 
ple/l ... 

VisiCalc Business Forecasting Model Ap¬ 
ple III . 

Visidex Apple II. . 

Programma di archiviazione dati inseribili li¬ 
beramente in una scheda corrispondente al 
quadro video. Le informazioni possono poi 
essere ricercate istantaneamente secondo ri¬ 
ferimentiincrociati; infatti, ogni parola o carat¬ 
tere appartenente alla scheda può essere 
chiave di ricerca per la stessa. 

Visi fi le Apple II . 

Completo sistema di archiviazione elettroni¬ 
ca, che permette di organizzare facilmente 
tutte le in formazioni necessarie alle attività bu¬ 
siness. Oltre alla gestione delle informazioni, 
consente notevoli altre possibilità, quali: cam¬ 
pi calcolati, stampe di rapporti e lo scambio 
dei dati con altri programmi della serie Visi. 

Visiplot Apple II . 

Visi plot facilita e sveltisce la produzione di 
grafici e diagrammi: linee (continue o spezza¬ 
te), istogrammi, punti, ideogrammi. È prevista 
anche la possibilità di rappresentare contem¬ 
poraneamente più serie di punti per un più 
rapido confronto. Il programma consente di 
porre in forma grafica i dati elaborati con Visi¬ 
Calc. 

Visischedule Apple II . 

Il programma Visischedule è un potente siste¬ 
ma di pianificazione delle attività e dei proget¬ 
ti. Oltre al controllo avanzamento lavori con¬ 
sente la definizione dei costi e la esecuzione 
di tutti i documenti. 

Vlsiterm Apple II ... 

Con Visiterm il personal computer può comu¬ 
nicare con grandi e piccoli elaboratori, inviare 
e ricevere informazioni ed archivi su disco 
tramite linea telefonica. È possibile definire 
«macro» e protocolli di colloquio. 


Prezzo 
IVA esci. 

Prezzo 
IVA comp. 


Prezzo 
IVA esci. 

Prezzo 
IVA comp. 

478.000 

564.040 

VisischeduleApple III .. 

573.000 

676.140 



Visitrend/Plot Apple II .. 

Il sistema risponde alla crescente necessità di 
idonei strumenti da parte di: pianificatori, ma¬ 
nager, imprenditori, analisti e consulenti. Esso 
è composto da due programmi: uno per anali¬ 
si di tipo statistico (calcolo di regressioni mul¬ 
tiple, medie e coefficienti di correlazione), l'al¬ 
tro per rappresentazioni grafiche. 

573.000 

676.140 



PLOTTER 



478.000 

764.000 

564.040 

901.520 

Plotter Strobe 100 . 

Sistema di disegno e scrittura a rullo e penna 
mobile, controllabile da computer e manual¬ 
mente tramite i pulsanti a pannello. Il sistema 
è corredato di: penne, cavo di alimentazione e 
manuale. 

1.857.000 2.191.260 

191.000 

225.380 

INTERFACCE 



191.000 

478.000 

225.380 

564.040 

Interfaccia Strobe per Apple II . 

Scheda elettronica di collegamento del Plot¬ 
ter Strobe 100, al computer Apple II e Apple III 
in emulazione, completa di cavi e di software 
grafico Business graphics per utilizzare facil¬ 
mente le caratteristiche del sistema di dise¬ 
gno automatico per la produzione di isto¬ 
grammi, diagrammi cartesiani e circolari. 

281.000 

331.580 

478.000 

564.040 

Interfaccia Strobe seriale RS232 . 

Adattatore di collegamento del Plotter Strobe 
100 ad un qualsiasi computer dotato di inter¬ 
faccia RS232. 

406.000 

479.080 



SOFTWARE 



382.000 

450.760 

Difplot . 

Programma di lettura e gestione grafica dei 
dati elaborati con il programma VisiCalc, per 
ottenere grafici e diagrammi di facile lettura. 

104.000 

122.720 



Business Graphics per Apple II . 

Programma applicativo che permette il dise¬ 
gno di istogrammi, diagrammi cartesiani e cir¬ 
colari. Particolarmente utile nelle attività di 
pianificazione, il programma è di facile uso 
perché guidato da menù. 

302.000 

356.360 

573.000 

676.140 

Strobe view per Apple . 

Software grafico che permette di ottenere ri¬ 
sultati su lucidi. 

156.000 

184.080 



Screen Dump per Apple . 

Permette di ottenere la riproduzione della pa¬ 
gina grafica di Apple II. 

156.000 

184.080 

191.000 

225.380 

MATERIALE DI CONSUMO 





Risma di carta patinata . 

100 fogli di carta patinata di dimensione ri¬ 
chiesta per il Plotter Strobe 100. 

3.900 

4.602 
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AppliHelp è una rubrica di assistenza 
hardware e software riservata ai lettori. 
Nel primo numero di Applicando non ab¬ 
biamo naturalmente richieste da soddisfa¬ 
re. Ma queste pagine attendono solo di 
potersi rendere utili. Per qualunque pro¬ 
blema relativo ai computer Apple, alle pe¬ 
riferiche, agli accessori, ai programmi, i 
nostri esperti saranno lieti di rendersi utili. 
Basta scrivere a: 

Applicando 
Rubrica AppliHelp 
Corso Monforte 39, 

20122 Milano 



AlicrOtech 

Il “Centro Vendita Simpatico” 



Alla Microtech, 
oltre ai sistemi 
trovi macchine, 
software 
interfacce, ma anche 


simpatia, 
tanta esperien 
e molto, 
molto tempo da 
dedicarti. Ti aspettiam< 


> 



MICROTECH SISTEMI S.r.l. 

VIA BRONZETTI, 20 - 20129 MILANO flKipplG COmpUCGT 
telefoni 733.609 - 740.654 w " 























Listati senza fatica 



I programmi pubblicati su Applicando possono es¬ 
sere trascritti dai lettori e salvati su dischetto. Ma la 
trascrizione è lenta e noiosa. Chi lo desidera può 
richiederci i dischetti sotto indicati, già pronti. Chi 
desiderasse anche il dischetto con i programmi 
STATISTICHE, SCANNER e FIGURATI UN PO’ può 
invece ottenerlo gratis. Abbondandosi ad Appli¬ 
cando. 




Compilare e spedire il tagliando qui sotto a Applicando , Editronica Srl., Corso Monforte 39, 20122 Milano. 

Vogliate inviarmi i seguenti dischetti: Sono abbonato: sì □ noD 

□ AP1/102. PROFITTI - CALENDARIO - TRONCHI □ AP1/N03. ELIMINADOS - OROLOGIO - FUOCO! 



Scelgo la seguente formula di pagamento: 

□ allego assegno di L.non trasferibile intestato a Editronica srl. 

□ allego ricevuta versamento di L...sulcc/pn. 19740208 intestato a 

Editronica srl - Corso Monforte, 39 - 20122 Milano. 

□ pago fin d’ora l’importo di L.con la mia carta di credito BankAmericard 

N.scadenza.autorizzando la Banca d’America 

e d’Italia ad addebitarne l'importo sul mio conto BankAmericard. 























s lettere 


A differenza della rubrica AppliHelp, di 
pagina 79, destinata a lettere con richieste 
di assistenza hardware o software, Ap- 
pLettere è aperta a tutti i lettori che voglia¬ 
no commentare, suggerire, informare, 
proporre. Criticare, anche. 

Altre rubriche che vedranno la luce dal 
prossimo numero di Applicando sono: 
Chiedi un programma, per tutti coloro 
che desiderano un programma su misura, 
hanno le idee chiare su quel che occorre 
loro ma non hanno tempo e modo di realiz¬ 
zare il software necessario da soli. Appli¬ 
cando cercherà di accontentare almeno 
un lettore per numero, scegliendo i pro¬ 
grammi che possono risultare di interesse 
più generale, e le richieste formulate con 


maggiore precisione di dettagli, scopi, ne¬ 
cessità, ecc. 

Il mercatino delle mele, per tutti coloro 
che desiderano vendere o comprare (o 
scambiare) computer Apple, accessori, 
periferiche, ecc. Le inserzioni degli abbo¬ 
nati saranno pubblicate gratuitamente an¬ 
che su RadioELETTRONICA & Computer, 
rivista pubblicata dalla stessa casa editri¬ 
ce di Applicando. 

Lettere, suggerimenti, richieste e inserzio¬ 
ni vanno indirizzate, precisando la rubrica, 
a: 

Applicando 
Corso Monforte 39, 

20122 Milano 


PERCHÈ SCEGLIETE UNA STAMPANTEOKI? 


OKI MICROLINE 64 

- 21)0 CARATIMI SECOOIOO 18 COLONNE 

- Il SET Oi CAJUTTEM HU GRAFICA 

- $ IODI 01 STAMPA ♦ ILO. 

- FR0ONE • TAICTOAFSDL2.300.000 

OKI MICROLINE 83/A 
-120 CARATTERI SECONOO132 COLONNE 

- U SET W CARATTERI ♦ GRAFICA 

- 4 N00101 STAMPA VRJ ELETTNONCO 

- FUSONE * TRACT0NF®11.550.000 

OKI MICROLINE 82/A 

- 120 CARATTEB AL SECONDO SO COLONNE 

- Il SET W CARATTERI + GRAFICA 
-I m DI STAMPA VFU ELETTRONICO 
-FRSONE* TRATTO* L 1.170.000 

OKI MICROLINE 80 

- IO CARATTERI AL SEC0N00» COLON* 

- I SET 01 CARATTERI MI SElGRAf ICA 

- FRIZIONE ♦ TRATTORE ♦ PORTARUUO 
TTYL 850.000 



OKI 


PERCHÈ VI OFFRE: 


industry 

company. 


ito 


- UNA GRAFICA AD ALTA RISOLUZIONE 

- SILENZIOSI! A 


- ELEVATA VELOCITA 


ì OBSO^TTlilL ' 


TORINO VIA ORMEA. M TEL Oli / 655.M5 
CONDIZIONI PARTICOLARI PER HO—«TI E O.EJ*. 


-TUTTI ITP 01 CARATTERE CHE VOLETE 
-ACCETTAI FOGLIO SMG010 E1 
MODULO CONTINO 
- USA NASTRI TVOMACCHMA DA 
SCRIVERE a EINDISTRUTTIBIIE 
(200 MILIONI 01 BATTUTE GARANTITE) 



NEW™ APPLE 


SCHEDA TELERASTER 


Il SOFTWARE FORNITO CON LA SCHEDA PERMETTE POI DI OTTENERE II NEGATIVO DELL IMMAGINE. 
IL WINOOWING. l'HARD COPY SULLE STAMPANTI GRAFICHE PIU DIFFUSE SUL MERCATO <OKI MICROLINE 
•0. OKI MICROLINE «2/A. OKI MICROLINE S3/A. OKI OP 2S0. OKI MICROLINE M. OKI MICROLINE 92/G. OKI MI 
CROLINE *3/0. CENTRONICS ECC ) 

I COMANDI PER OTTENERE IL CONGELAMENTO DELL IMMAGINE SONO CONTENUTI NEL DISCO FORNI 
TO CON LA SCHEDA. IN UN PROGRAMMA ESEMPLIFICATIVO CHE PERMETTE DI RIPRENDERE UN FOTOGRAM 
MA. ELABORARLO. SALVARLO SU DISCO. STAMPARLO SU CARTA NEL CASO SI POSSIEDA UNA STAMPANTE 


SULLO STESSO DISCO VI SONO INOLTRE TUTTI I PROGRAMMI DI UTILITY PER IL CORRETTO ADATTAMEN¬ 
TO DELLA TELECAMERA AL CALCOLATORE 


A PARTIRE OA l 655.000 




























Protezione 
con il D6 

Uno degli argomenti più 
scottanti è quello dei metodi 
di protezione del software. 
Un metodo interessante è il 
“D6”. Funziona solo con 
l’Applesoft e non con l’Inte- 
ger basic, ma merita atten¬ 
zione in quanto, se si cerca 
di listare un programma, 
questo non fa che mettersi a 
girare! Non solo, ma usando 
la massima parte delle istru¬ 
zioni Applesoft, perfino un’i¬ 
struzione grafica, il compu¬ 
ter ignorerà l’istruzione e 
comincerà a girare il pro¬ 
gramma. 

Basta fare così. Per prima 
cosa si carica il programma 
Applesoft da proteggere. 
Poi si va in monitor (Call- 
151) e si guarda il byte D6. 
Dovrebbe esserci memoriz¬ 
zato uno 00. Tutto quello 
che si deve fare è digitare: 
D6:FF 

Ecco fatto! Adesso si tor¬ 
na in Applesoft (si dovrebbe 
usare 9DBFG) e si cerca di 
listare il programma. Do¬ 
vrebbe mettersi a girare. . 

Ma allora non lo si potrà 
mai listare? Non è esatta¬ 
mente così. In fin dei conti 
quando si spegne l’Apple e 
si rifà il booting il byte D6 
viene ripristinato a un valore 
00. Dunque come fare per¬ 
ché il programma si com¬ 
porti sempre così? La ma¬ 
niera più facile sarebbe 
quella di digitare come pri¬ 
ma linea del programma: 

0 POKE 214,255 

D6 in decimale è 214 e in 
quella locazione inseriamo 
in memoria un 255 (FF) di¬ 
rettamente dal basic. Po¬ 
trebbe addirittura essere di 
aiuto nascondere questo 
poke in più locazioni diffe¬ 
renti o in un data statement, 
o usare altri metodi per oc¬ 
cultarlo (come adoperare 
dei Control-H). Naturalmen¬ 
te il programma dovrà esse¬ 
re eseguito almeno una vol¬ 
ta prima dell’aggiunta della 
protezione, ma è probabile 
che prima di listare il pro¬ 


gramma lo si esegua, e 
quindi esso è al sicuro an¬ 
che se viene ricaricato. 
Questo è dovuto al fatto che 
il byte D6 non viene ripristi¬ 
nato se l’Apple non è com¬ 
pletamente spento (o non 
viene rifatto il booting). \ 

Generatore di 
numeri casuali 

C’è una differenza nel 
modo in cui i generatori di 
funzioni casuali agiscono in 
Applesoft e in Integer basic. 
In Integer il generatore di 
numeri casuali viene auto¬ 
maticamente impostato 
ogni volta che lo si usa per la 
prima volta, mentre nell’Ap- 
plesoft questo non avviene. 
Se si userà il programma 


che segue si avranno sem¬ 
pre la prima volta gli stessi 
numeri. 

10 FOR I = 1 TO 20 
20 X = INT (RND (1)* 11) 
30 PRINTX, 

40 NEXTI 

I primi numeri saranno 
sempre: 

3, 7, 4, 7,3, 2,7,0,5,3, 8,8, 
6, 0, 7, 7, 2, 1,4,4 

In altri termini anche se lo 
si rifacesse per un numero 
infinito di volte la sequenza 
sarebbe sempre prevedibi¬ 
le. Se si desse un comando 
FP, che rifà l’inizializzazio- 
ne dell’Applesoft, il genera¬ 
tore di numeri casuali sa¬ 
rebbe riportato all’inizio. Per 
evitarlo si deve impostare di 
nuovo il generatore di nu¬ 
meri casuali. Questo pro¬ 
blema non esiste nell’lnte- 
ger basic. 


Uno spazzino 
per lo schermo 

AMPER-CLEAR è un 
programma il quale non fa 
altro che cambiare il vettore 
& (in inglese “ampersand”, 
da “and per se and”) in mo¬ 
do di saltare alla routine in 
monitor che pulisce lo 
schermo. Basta digitare & e 
premere RETURN e lo 
schermo sarà sgomberato. 
Nulla di straordinario, ma si 
potrebbe sostituire alla rou¬ 
tine qualche altra routine di 
monitor. 

AMPER-CLEAR 
IP FOR I = 768 TO 778 
20 READ A 
80 POKE LA 
40 NEXT I 

50 POKE 1013,76: POKE 
1014,00: POKE 1015,03 
60 END 

100 DATA 32,88,252,169, 
00,133, 36, 32, 91,251,96 


L’anti-Reset 

RESET-RUNNER è un 
programmino di due linee 
che, aggiunto all’inizio di un 
programma Applesoft, im¬ 
pedirà il Reset. 

I due poke 1010 e 1011 
inseriscono in memoria la 
locazione del comando 
RUN dell’Applesoft. Viene 
richiamata una routine nella 
Auto-start ROM che mette 
un valore exclusive-or nella 
locazione 1012 decimale. 
La locazione 1012 è nota 
come byte di power up, per¬ 
ché è lì che guarda l’Apple 
per vedere se è stato appe¬ 
na acceso (partenza a fred¬ 
do) o no (partenza a caldo). 
Così quando si preme RE¬ 
SET salta, invece di tornare 
in Basic, alla routine in Ap¬ 
plesoft che fa girare un pro¬ 
gramma Applesoft. 

RESET RUNNER 

10 POKE 1010,102: 

POKE 

1011,212 

20 CALL — 1169 
30 END 


Nel prossimo 

applicando 

Auto I costi di quella che ho 
i costi di quella che avrò 

Prove La contabilità 
sull’Apple III 

Applicazioni Se collego 
una telecamera... 

Pascal Non è poi 
così difficile 

Giochi Gli imperi dello spazio 

Investimenti Se Apple II gioca 
in Borsa 








B rown Disc abbina la 

capacità c l'affidabilità dei dischi 
rigidi alla convenienza dei floppy disc. 
Brown Disc e l'unico produttore ad 
offrire la tecnologia tipica dei diselli 
rigidi: una esclusiva tecnica di 
spalmatura centrifuga assicura un 
rivestimento di spessore infinitesimale 
con una conseguente più elevata 
densità. 

Grazie ad un particolare 
sovrarivestimento ed un layer di prima 
scelta, le caratteristiche di adesione / 
coesione e la durata del dischetto e 
delle testine migliorano notevolmente. 
Inoltre la riduzione delle tensioni fra 
le particelle aumenta la stabilità del 
supporto. 

La Brown Disc offre una densità 
lineare più elevata degli standard 


richiesti dai drive più in uso e partecipa 
allo sviluppo di nuove tecnologie per 
quelli del domani. 

Per la prima volta potrete centrare 
infallibilmente il mercato dei 
Winchester e del backup. 

Agli OEM, offriamo un prodotto di 
qualità superiore, che può essere 
commercializzato con il loro marchio. 

Alle Software I louses un dischetto 
veramento sicuro cui affidare i propri 
programmi. Infine i distributori e 
rivenditori ora hanno possibilità di 


avere a magazzino il supplirlo che i più 
preparati utenti di mini e micro- 
elaboratori richiederanno. 

Se desiderate la tecnologia di un 
disco rigido in un flopy non avete altra 
scelta se non utilizzare Brown Disc. 

Per ulteriori informazioni scrivete o 
telefonate a 
M.D.A. S.r.l. 

Via S. Giuseppe, 137 
20147 SARONNO 
Tel.02-%20014/5-%20015 
Tlx. 380426 API 047 


Scegliete il vostro supporto dalla seguente tabella: 
Spessore della 

Tipo Spalmatura Coercitività Densità 


VHR-l-II 

UHR-I 

UHR-II 


120 /j in. 
60 ju in. 
45 U in. 


300 oersted 
300 oersted 
600 oersted 


6,200 BPI 
10,000 BPI 
10,000-18,000 BPI 


Capacità 
(Doppia Faccia) 

1.0 megabyte 
3.2 megabyte 
5.0 meuabvte 


We’ve taken a hard look at disc technology, 
and decided to be flexible. 
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s.r.l. 

Via S. Giuseppe 137 21047 Saronno 
Tel. 02/96.20.914/5 - 96.20.015 
Telex 380426 API 047 



HmpuUup apre a Roma. 
/ràprUbpapple a Roma 


Il posto delle mele del tempo delle 
mele. Il tranquillo ambiente della nuova 
rivoluzione. Le proposte che stanno cambiando il 
modo di fare le cose, la maniera di usare il tempo 
e gli strumenti del mestiere, della scienza, della 
e della cultura. 

Per chi di computer sa tutto ed ha 
bisogno di assistenza specialistica, di software, di 
una stampante nuova, 
di libri, o anche solo di un pacco di carta... 

Per chi non sa niente, ma vorrebbe 
sapere, e capire: assistenza informativa, corsi di 


formazione, guida all’acquisto, consulenza. 

Per chi ha un computer e per chi no; 
per un video a colori, i dischi, un modello nuovo, 
espansioni ed integrazioni di sistema... 

E il nuovo Apple //e, il punto d’arrivo 
della linea II, dopo Apple II e Apple II plus. Ora con 
tastiera ancora migliorata, anche in versione 
italiana, migliore visualizzazione, memoria 
espansa. 

Venite a trovarci. 

Via Nomentana 265,267,269,271,273 
di fronte a Villa Torlonia. 


Rivenditore Autorizzato 



SIGEEI t.r.l. 

Via Lorenzo Bonincontri 105-107 
telefono 5140792 

computerstiop 

Via Nomentana 265-273 


Apple continua g a crescere 




..anche Sigeei 














































